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IDENTIFICATION 
PRODUCT CODE: AC-8552D-MC 
PRODUCT NAME: CZDMEDO DDCMP MD LN UNIT TST 
DATE: AUGUST 1980 
MAINTAINER: DIAGNOSTICS-MERRIMACK 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO ae FOR ANY ERRORS THAT MAY APPEAR IN THIS 
DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1976, 1980 BY DIGITAL FQUIPMENT CORPORATION 
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CZDME .P11 O01-JUL-80 15 SEQ 0002 
44 
aS 
3 V6 ABSTRACT 
48 THE FUNCTION OF THE DMC11 DIAGNOSTICS IS TO VERIFY THAT THE 
49 OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
50 VERFIY THAT THERE ARE NO MALFUNCTIONS AND THE ALL OPERATIONS 
25 OF THE DMC11 ARE CORRECT IN ITS ENVIRONMENT. 
53 PARAMETERS MUST BE SET UP TO ALERT THE DIAGNOSTICS TO THE 
5G DMC11 CONFIGURATION. THESE PARAMETERS ARE CONTAINED IN THE 
>5 STATUS TABLE AND ARE GENERATED IN TWO WAYS: 1) MANUAL 
56 INPUT = THE OPERATOR ANSWERS QUESTIONS. 2) AUTOSIZING - THE 
44 PROGRAM DETERMINES THE PARAMETERS AUTOMATICALLY. 
59 CZDME TESTS THE ODMC-11 LINE UNIT (M8201 OR M8202). IT 
60 PERFORMS WRITE/READ TESTS ON THE DMC LINE UNIT REGISTERS. IT 
61 CHECKS FOR PROPER TRANSMITTER, RECEIVER, AND BCC OPERATION IN 
62 DDCMP MODE. THE MODEM SIGNALS ARE ALSO CHECKED. CZDME 
63 REQUIRES A DMC MICRO-PROCESSOR (M8200 OR M8204) TO RUN. FOR 
64 BEST DIAGNOSIS A _ TURN-AROUND CONNECTOR SHOULD BE INSTALLED, 
65 HOWEVER THE DIAGNOSTIC WILL RUN WITHOUT IT (SOME TESTS ARE 
rg SKIPPED). 
68 CURRENTLY THERE ARE FIVE OFF LINE DIAGNOSTICS THAT ARE TO BE 
69 RUN IN SEQUENCE TO INSURE THAT IF AN ERROR SHOULD OCCUR IT 
oy WILL BE DETECTED AT AN EARLY STAGE. 
i NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE FIVE DIAGNOSTICS ARE: 
y 
76 1. CZDMC CREV) BASIC W/R AND MICRO-PROCESSOR TESTS 
77 2. CZDME CREV) DDCMP MODE LINE UNIT TESTS 
78 3. OZOMF CREV) BITSTUFF LINE UNIT TESTS 
79 4. DZDOMG CREVJ JUMP AND CROM TESTS 
+ 5. DZDMH CREV] FREE-RUNNING TESTS (HEAT TEST TAPE) 
82 
i NOTE: THE NAMES OF THESE DIAGNOSTICS MAY VAYIE AS THEY ARE UPDATED. 
4 
+ 2. REGUIREMENTS 
ce 2.1 EQUIPMENT 
89 ANY PDP11 FAMILY CPU (EXCEPT AN _SI-11) WITH MINIMUM 8K MEMORY 
90 ASR 33 (OR EQUILIVALENT) 
91 DMC11-AR WITH DMC11-DA OR DM-11-FA OR 
92 DMC 11-AL WITH DMC11-MA OR DMC11-/4D 
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94 
95 
a 2.2 STORAGE 
98 PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABL AND 
99 BOOTSTRAP LOADER RESIDE. LOCATIONS 1500 THRU 1640; CONTAIN 
100 THE "'STATUS TABLE’ INFORMATION WHICH IS GENERATED AT START OF 
101 DIAGNOSTICS BY MANUAL INPUT (QUESTIONS) OR AUTOMATICALLY 
102 (AUTO-SIZING). THIS AREA IS AN OVERLAY AREA AND SHOULD NOT BE 
+S ALTERED BY THE OPERATOR. 
+ 4 : LOADING PROCEDURE 
107 3.1 METHOD 
108 


ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA SUCH 
AS DISK ,MAGTAPE,DECTAPE, OR CASSETTE; FOLLOW INSTRUCTIONS 
eee MONITOR WHICH HAS BEEN PROVIDED ON THAT SPECIFIC 


ABSOLUTE LOADER STARTING ADDRESS *500 
MEMORY * SIZE 


4K 17 
8k 37 
12K 57 
16K 77 

117 
24K 137 
28K 157 


3.1.1 PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. 
(ALSO PLACE ‘HALT' SW UP) 


3.1.2 DEPRESS ‘LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


3.1.3 DEPRESS ‘START KEY" ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


AEAIWAN WALA AIA PO PU PEPIN PUM NPOPYI AD * Ss OS OO? OS Ow SO 
Or PWR" O OOMNO WWE WN OO OOnNCO VIF WN OO 
MN 
=) 
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CZ7DME .P11 01-JUL-80 15:29 | SEQ 0004 
137 
138 
tf 4, STARTING PROCEDURE 
141 A. SET SWITCH REGISTER TO 000200 
142 B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 
143 C. SET SWR TO ZERO FOR ‘AUTO SIZING’ OR SWR BITO=1 FOR MANUAL 
144 INPUT (QUESTIONS) CR SWR BIT7=1 TO USE EXISTING PARAMETERS 
145 SET UP BY A PREVIOUS START OR A PREVIOUSLY RUN ODMC11 
146 DIAGNOSTIC. 
147 D. DEPRESS ‘START KEY" AND RELEASE. THE PROGRAM WILL TYPE 
148 MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
149 UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 STATS 


001500 160010 145310 177777 000000 
001510 160020 145320 177777 000000 


THE PROGRAM WILL TYPE ‘R' AND PROCEED TO RUN THE DIAGNOSTIC. 


ll el el ee ee eed eed aed Ld 
AAMAMAANYAWNAYWIVY VY 
OOONO UF WWN "oO 


161 THE ABOVE IS ONLY AN EXAMPLE. THIS WOULD INDICATE THE STATUS 

162 TABLE STARTING AT ADD. 1500 IN THE PROGRAM. IN THIS EXAMPLE 

163 THE TABLE CONTAINS THE INFORMATION AND STATUS OF TWO DMC11'S. 

164 THE STATUS TABLE MUST BE VERIFIED BY THE USER IF AUTO $1Z1NG 

165 1S DONE. FOR INFORMATION OF STATUS TABLE SEE SECTION 8.4 FOR 

166 HELP. 

168 1F THE DIAGNOSTIC WAS STARTED WITH SWOO=1 INDICATING MANUAL 

169 PARAMETER INPUT THEN THE FOLLOWING SHOWS AN EXAMPLE OF THE 

170 QUESTIONS ASKED AND SOME EXAMPLE ANSWERS: 

172 HOW MANY DMC11'S TO BE TESTED?1 

174 07 

175 CSR ADDRESS?160010 

176 VECTOR ADDRESS?310 

177 BR PRIORITY LEVEL? (4,5,6,7)25 

178 DOES MICRO-PROCESSOR HAVE CRAM? (Y OR N)N 

179 WHICH LINE UNIT? IF NONE TYPE "'N’', IF M8201 TYPE ‘I’, IF 

180 M8202 TYPE ''2''71 

181 1S THE LOOP BACK CONNECTOR ON?Y 

183 (THE NEXT QUESTION WILL BE ASKED IF M8201 AND LOOP BACK CONNECTOR) 
4 

185 WHICH MODEM TYPE, TYPE "'D'" FOR DMC11-DA (RS232C), 

186 TYPE ‘'F’’ FOR DMC11-FA (V.35) ? D 

187 SWITCH PAC#1 (DDOCMP LINE) 2377 

188 SWITCH PAC#2 (BM873 BOOT ADD) 2377 

190 FOLLOWING THE QUESTIONS THE STATUS MAP IS PRINTED OUT AS 

191 DESCRIBED ABOVE, THE INFORMATION IN THE MAP REFLECTS THE 


192 ANSWERS TO THE QUESTIONS. If THE DIAGNOSTIC WAS STARTED WITH 
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CZDME.P11 O1-JUL-80 15:2 SEQ 0005 
193 SWOO=0 AND SWO7=0 (AUTO=SIZING) THEN NO QUESTIONS ARE ASKED 
194 AND ONLY THE STATUS-MAP IS PRINTED OUT. IF AUTO-SIZING IS 
195 USED THE STATUS INFORMATION MUST BE VERIFIED TO BE CORRECT 
196 (MATCH THE HARDWARE). IF IT DOES NOT MATCH THE HARDWARE THE 
197 DIAGNOSTIC MUST BE RESTARTED WITH SWOO=1 AND THE QUESTIONS 
198 ANSWERED. 

199 

200 

$0 4.1 CONTROL SWITCH SETTINGS 

203 SW 15 SET: HALT ON ERROR 

204 SW 14 SET: LOOP ON CURRENT TEST 

205 SW 13 SET: INHIBIT ERROR PRINT OUT 

206 SW 12 SET: INHIBIT TYPE OUT/ABELL ON ERROR. 

207 SW 171 SET: INHIBIT ITERATIONS. (QUICK PASS) 

208 Sw 10 SET: ESCAPE TO NEXT TEST ON ERROR 

209 SW O09 SET: LOOP WITH CURRENT DATA 

210 Sw O08 SET: CATCH ERROR AND LOOP ON IT 

211 SW O7 SET: USE PREVIOUS STATUS TABLE. 

212 SW 06 SET: HALT IN ROMCLK ROUTINE BEF ORE CLOCKING 
213 MICRO-PROCESSOR 

214 SW 05S SET: RESERVED 

215 SW 04 SET: RESERVED 

216 Sw 03 SET: RESELECT DMC11°S DESIRED ACTIVE 

217 SW O2 SET: LOCK ON SELECTED TEST 

218 SW 01 SET: RESTART PROGRAM AT SELECTED TEST 

219 Sw 00 SET: BUILD NEW STATUS TABLE FROM QUESTIONS. (IF SwO7=0 
220 AND SWOO=0 A NEW STATUS TABLE IS BUILT BY 
$$. AUTO-SIZING) 

225 SWITCH 06 AND 08-15 ARE DYNAMIC AND CAN BE CHANGED AS NEEDED 
224 WHILE THE DIAGNOSTIC IS RUNNING. SWITCHES 00-05 AND SWITCH 07 
225 ARE STATIC, AND ARE USED ONLY ON STARTING OR RESTARTING THE 
226 DIAGNOSTIC. 
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4.1.2 SWITCH REGISTER OPTIONS (AT START UP) 


Sw 01 


SW O2 


Sw 03 


METHOD: 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST, THE REASON BEING IS THAT THE 
PROGRAM HAS TO CLEAR AREAS AND SET UP PARAMETERS. 
WHEN THiS SWITCH IS USED THE DIAGNOSTIC WILL ASK TEST 
NO.? ANSWER BY TYPING THE NUMBER OF THE TEST DESIRED 
a RETURN TO BEGIN EXECUTION AT THE SELECTED 


LOCK ON SELECTED TEST. THIS SWITCH WHEN USED WITH 
SWO1 WILL CAUSE THE PROGRAM TO CONSTANTLY LOOP ON THE 
SELECTED TEST. HITTING ANY KEY ON THE CONSOLE wILL 
LET IT ADVANCE TO THE NEXT TEST AND LOOP UNTIL A KEY 
IS HIT AGAIN. IF SWO2=0 WHEN SWO1 IS USED. THE 
PROGRAM WILL BEGIN AT THE SELECTED TEST AND CONTINUE 
NORMAL OPERATIONS. 


RESELECT DMC11'S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DMC11'S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
FOUR DMC11S; BITS 00,01,02,03 WILL BE SET IN LOC 
"DMACTV' FROM THE SWITCH REGISTER. USING THIS 
SWITCH(SWOO) ALTERS THAT LOCATION; THEREFORE IF FOUR 
DMC11S ARE IN THE SYSTEM ***#DQ NOT*** SET SWITCHS 
GREATER THAN SW 03 IN THE UP POSITION. THIS WOULD BE 
A FATAL ERROR. DO NOT SELECT MORE ACTIVE DMC11S THAN 
THERE IS INFORMATION ON IN THE STATUS TABLE. 


A: LOAD ADDRESS 200 

B: START WITH SW 00=1 

Ct PROGRAM WILL TYPE MESSAGE 

D: SET A SWITCH FOR EACH DMC DESIRED ACTIVE. 
EXAMPLE: IF YOU HAVE 4 DMC'S BUT ONLY WANT TO 
RUN THE FIRST AND THE LAST SET SWR BITS 0 AND 
3 = 1. PRESS CONTINUE 

Ei NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

z SET WITH ANY OTHER SWITCH SETTINGS DESIRED. 


PRESS CONTINUE. 


oe a — ee ee ae _—_ —=— 
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DYNAMIC SWITCHES 
FRROR SWITCHES 


SW 12 DELETE PRINT OUT/BELL ON ERROR. 

SW 15 DELETE ERROR PRINTOUT. 

HALT ON THE ERROR. 

SW 08 GOTO BEGINNING OF THE TESTC(ON ERROR). 
SW 10 GOTO NEXT TESTCON ERROR). 


SCOPE SWITCHES 


1. SWO6 HALT IN ROMCLK ROUTINE BEFORE CLOCKING 
MICRO=PROCESSOR INSTRUCTION. THIS ALLOWS THE 
OPERATOR TO SCOPE A MICRO-PROCESSOR INSTRUCTION IN 
THE STATIC STATE BEFORE IT IS CLOCKED. HIT 
CONTINUE TO RESUME RUNNING. 

2. SwO9 (IF ENABLED BY 'SCOP1') ON AN ERROR: IF AN '*#" IS 
PRINTED IN FRONT OF THE TEST NO. (EX. *TEST NO. 
10 ) SwO9 IS INCORPORATED IN THAT TEST AND 
THEREFORE SWO9 1S USUALLY THE BEST SWITCH FOR THE 
SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0). IF 
swO9 1S NOT ENABELED: AND THERE IS A HARD ERROR 
(CONSTANT); SWOB IS BEST. (SW14=1,0, Sw10=0, 
SwO9=0, SWOB8=1). FOR INTERMITTEMT ERRORS; SW14=1 
WILL LOOP ON TEST REGUARDLESS OF ERROR OR NOT 
ERROR. (SW14=1, SW10=0, SWO9=0, SWwO8=1,0) 

3. Swit INHIBIT INTERATIONS. 

4° $w14 LOOP ON CURRENT TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200 THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DMC11 DIAGNOSTICS. (SEE SECTION 4.0) 


NOTE: IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACT11 OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY AFTER ALL AVAILABLE DMC11°S a TESTED THE 
PROGRAM WILL RETURN TO ‘XXDP* OR ‘ACT-11" 


OPERATING PROCEDURE 
WHEN PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 


SECTION 4.0 WILL BE PRINTED, AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC 


WANN — 
os = 8 @ 
a 
= 
—)> 
WV 
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5.2 


PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


Fe HALT ON ERROR (VIA SW 15=1) WHEN EVER AN ERROR OCCURS. 
é. CLEAR Sw 15. 

3. SET SW 14: (LOOP ON THIS TEST) 

4. SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST) TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT; LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT THIS WAY THE EXACT FUNCTION OF 
THE TEST CAN BE DETERMINED. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND Sw 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
Ry AL, ERROR MESSAGE TO GIVE THE OPERATOR AN INDICATION OF 


ERROR RECOVERY 


IF FOR SOME REASON THE DMC11 SHOULD ‘HANG THE BUS" (GAIN 
CONTROL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR 10 REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN; LOOK IN LOCATION 
"TSTNO' (ADDRESS 1226)FOR THE NUMBER OF THE TEST THAT WAS 
RUNNING AT THE TIME OF THE CATASTROPHIC ERROR. IN THIS WAY 
THE OPERATOR WILL HAVE AN IDEA AS TO WHAT THE DMC11 WAS DOING 
AT THE TIME OF THE ERROR. 


RESTRICTIONS 

STARTING RESTRICTIONS 

SEE SECTION 4. (PLEASE) 

STATUS TABLE SHOULD BE VERIFIED REGUARDLESS OF HOW PROGRAM WAS 
STARTED. ALSO IT IS IMPORTANT TO USE THIS LISTING ALONG WITH 


THE INFORMATION PRINTED ON THE TTY TO COMPLETLY ISOLATE 
PROSLEMS. 


—_—— rm re mm me ae” 


SEQ 0008 
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366 
367 
300 iP OPERATING RESTRICTIONS 
370 THE FIRST TIME A DMC11 DIAGNOSTIC IS LOADED INTO CORE AND RUN 
371 THE STATUS TABLE MUST BE SET UP. THIS IS DONE BY MANUAL INPUT 
372 (SWOO=1) OR BY AUTOSIZING (SWOO0=0 AND SWO07=0). THEREAFTER 
373 HOWEVER THE STATUS TABLE NEED NOT BE SETUP BY SUBSEQUENT 
374 RESTARTS OR EVEN LOADING THE NEXT DMC DIAGNOSTIC BECAUSE THE 
375 STATUS TABLE IS OVERLAYED. THE CURRENT PARAMETERS IN THE 
q9 STATUS TABLE ARE USED WHEN SWO7=1 ON START UP. 
ers 7.3 HARDWARE CONFIGURATION RESTRICTIONS 
380 DMC11(M8200)- JUMPER W1 MUST BE IN, AND SWITCH 7 OF €76 MUST 
+H BE IN THE OFF POSITION. 
ot KMC(M8204)= JUMPER wi MUST BE IN. 
385 LINE UNIT(MB8201)- JUMPERS W1, W2, AND WS MUST BE IN. JUMPERS 
386 wW3, AND WS MUST BE OUT. SWB OF E26 MUST BE IN THE ON 
ro POSITION. 
389 LINE UNIT (M8202)- JUMPER W1 MUST BE IN. SW8 OF E26 MUST BE 
soy IN THE OFF POSITION. 
Had 8. MISCELLANEOUS 
8.1 EXECUTION TIME 
396 ALL DMC11 DEVICE DIAGNOSTICS WILL GIVE AN "END PASS" MESSAGE 
397 (PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
398 ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
399 POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
400 ON THE PDP11 CPU CONFIGURATION AND THE AMOUNT OF MEMORY IN THE 
401 SYSTEM. 
402 
rr oi 8.2 PASS COMPLETE 
405 NOTE: EVERY TIME THE PROGRAM IS STARTED; THE TESTS WILL RUN 
406 AS IF SwWil (DELETE ITERATIONS) WAS UP (=1). THIS IS TO 
407 "VERIFY NO HARD ERRORS’ AS SOON AS’ POSSIBLE. THEREFORE THE 
408 FIRST PASS -EACH TIME PROGRAM IS STARTED- WILL BE A ‘QUICK 
409 PASS’ UNTIL ALL ODMC11'S IN SYSTEM ARE TESTED. WHEN THE 
410 DIAGNOSTIC HAS COMPLETED A PASS THE FOLLOWING IS AN EXAMPLE OF 
df THE PRINT OUT TO BE EXPECTED. 
413 END PASS CZDME CSR: 175000 VEC: 0300 PASSES: 000001 
414 ERRORS: 000000 


6 NOTE: THE PASS COUNT AND ERROR COUNTS ARE CUMMULITIVE FOR 
7 EACH DMC11 THAT IS RUNNING, AND ARE SET TO ZERO ONLY 
8 WHEN THE DIAGNOSTIC IS STARTED. THEREFORE AFTER AN 
° OVERNIGHT RUN FOR EXAMPLE, THE TOTAL PASSES AND ERRORS 
0 FOR EACH DMC11 SINCE THE DIAGNOSTIC WAS STARTED ARE 
1 REFLECTED IN PASSES: AND ERRORS:. 
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8.4 


KEY LOCATIONS 

RETURN (1214) CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


NEXT (1216) CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 


PEFORMED. 

TSTNO (1226) CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 

RUN (1316) ee sah ' "RUN' ALWAYS POINTS TO THE ODMC11 
CUR BEING TESTED. EXAMPLE: (RUN) 


1302 /0000000001000000 MEANS THAT DMC11 NO.06 
IS THE DMC11 NOW RUNNING. 


DMCROO-DMCR17 

DMSTOO-DMST17 

(1500)-(1640) 
THESE LOCATIONS COi....IN THE INFORMATION NEEDED 
TO TEST UP TO 16 (DECIMAL) DMC11S SEQUENTIALY. 
THEY CONTAIN THE (CSR,VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH DMC11. 


DMACTV (1306) EACH BIT SET IN THIS ole ard bab 3 THAT 
THE ASSOCIATED DMC11 WILL BE TESTED IN TURN. 
EXAMPLE: (DMACTV) 127670000060000011111 — 


00,0 WILL BE TESTED. 
EXAMPLE: (DMACTV) +o +467600600000001 0001 MEANS 
THAT DMC11 NO. 00,04 WILL BE TESTED. 


DMCSR (1402) rt tae THE CSR OF THE CURRENT DMC11 UNDER 


"STATUS TABLE’ (1500-1640) 


THE TABLE IS FILLED BY AUTO SIZING OR BY THE MANUAL PARAMETER 
INPUT (QUESTIONS) AS DESCRIBED PREVIOUSLY. ALSO IF DESIRED BY 
USER; THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) T0 
SUIT THE SPECIFIC CONFIGURATION. 


THE EXAMPLE STATUS MAP SHOWN BELOW CONTAINS INFORMATION FOR 
TWO DMC11'S. THE TABLE CAN CONTAIN UP TO 16 ODMC11°S. 
4 pata THE MAP IS A DESCRIPTION OF THE BITS FOR EACH MAP 


MAP OF DMC11 STATUS 


PC CSR STATI STAT2 STATS 


001500 160010 145310 177777 000000 
001510 160020 016320 000000 000000 


SEQ 0010 
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480 EACH MAP ENTRY CONTAINS 4 WORDS WHICH CONTAIN THE STATUS 
481 INFORMATION FOR 1 DMC11. THE PC SHOWS WHERE IN CORE MEMORY 
482 THE FIRST OF THE 4 WORDS IS. IN THE EXAMPLE ABOVE THE FIRST 
483 DMC'S STATUS IS IN LOCATIONS, 413005 91308 1504, AND 1506. THE 
484 SECOND DMC STATUS IS LOCATED A 0, 1512, 1514, AND 1516. 
485 THE INFORMATION CONTAINED Ry BH, WORD *eutay IS DEFINED AS 
486 FOLLOWS: 
488 CSR: | CONTAINS DMC11 CSR ADDRESS 
490 STAT1: BITS 00-08 IS DMC11 VECTOR ADDRESS 
491 BIT15=1 MICRO=PROCESSOR HAS CRAM 
492 BIT15=0 MICRO-PROCESSOR HAS CROM 
493 BIT14=1 TURNAROUND CONNECTOR IS ON 
494 B1T14=0 NO TURNAROUND CONNECTOR 
495 BIT13=0 LINE UNIT IS AN M8201 
496 BIT13=1 LINE UNIT IS AN M8202 
497 BIT12=1 NO LINE UNIT 
498 BITS 09-11 IS DMC11 BR PRIORITY LEVEL 
500 STAT2: LOW BYTE IS SWITCH PAC41 (DDCMP LINE NUMBER) 
501 HIGH BYTE £S SWITCH PAC#2 (BM873 BOOT ADD) 
503 STAT3: BITO=1 RUN FREE RUNNING TESTS ON KMC11 
504 BIT1=0 DMC11-AR (LOW SPEED) 
505 BIT1=1 DMC11-AL (HIGH SPEED) 
506 BIT2=0 DMC11-DA (RS232) 
507 BIT2=1 DMC11-FA (V.35) 
508 
509 


SEQ 0011 
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IF THE DIAGNOSTIC IS RUN ON AN 11/04 OR OTHER CPU WITHOUT A 
SWITCH REGISTER THEN A SOFTWARE SWITCH REGISTER IS USED TO 
ALLOW USER THE SAME SWITCH OPTIONS AS DESCRIBED PREVIOUSLY. 
IF THE HARDWARE SWITCH REGISTER DOES NOT EXIST OR IF ONE DOFS 
AND IT CONTAINS ALL ONES (177777) THIS SOFTWARE SWITCH 
REGISTER IS USED. 


CONTROL : 


TO OBTAIN CONTROL Al ANY ALLOWABLE TIME DURING EXECUTION OF 
THE DIAGNOSTIC THE OPERATOR TYPES A CTRL G ON THE CONSOLE 
TERMINAL KEYBOARD. AS SOON AS THE CTRL G IS RECOGNIZED, BY 
THE DIAGNOSTIC, THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


WMaAoranauwnu 1 
WANA UW VV 
ODODONO UIE w 
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510 
511 
ais 8.5 METHOD OF AUTO SIZING 
aie 8.5.1 FINDING THE CONTROL STATUS REGISTER. 
516 THE AUTO=SIZING ROUTINE FINDS A DMC11 AS FOLLOWS: IT STARTS 
517 AT ADDRESS 160000 AND TESTS ALL ADDRESS IN INCREMENTS OF 10 UP 
518 TO AND INCLUDING ADDRESS 167760. IF THE ADDRESS DOES NOT TIME 
519 OUT, THE FOLLOWING IS DONE, THE FIRST CROM ADDRESS 'S WRITTEN 
520 TO A 125252 THEN IT | e500 BACK. IF IT CONTAINS A <1 OR 
521 125252 OR 626 OR 16520 A DMC11 HAS BEEN Anord IF NOT, THE 
S22 ADDRESS IS UPDATED BY fi AND THE SEARCH NUES. A =1 
525 INDICATES A DMC11 WITH NO CROM OR CRAM, a 135250 1 INDICATES A 
524 KMC11 WITH CRAM, A 626 INDICATES A ACT 1 -AL AND A_ 16520 
525 INDICATES A DMC11-AR. FURTHER TESTS ARE PERFORMED AT THIS 
526 POINT TO DETERMINE WHICH LINE UNIT, IF ANY, IS INSTALLED, IF A 
527 LOOP=BACK CONNECTOR IS INSTALLED AND VARIOUS SWITCH SETTINGS 
528 ON THE LINE UNIT. THIS IS WHY THE STATUS TABLE MUST BE 
529 VERIFIED BY THE USER AND IF ANY OF THE INFORMATION DOES NOT 
530 AGREE WITH THE HARDWARE THE DIAGNOSTIC MUST BE RESTARTED AND 
531 THE QUESTIONS MUST BE ANSWERED. ALL DMC11'S IN THE SYSTEM 
532 WILL BE FOUND BY THE AUTO-SIZER. IF IT DOES NOT FIND A_ DMC11 
tt, THE DIAGNOSTIC MUST BE RESTARTED AND THE QUESTIONS ANSWERED. 
S32 8.5.2 FINDING THE VECTOR AND BR LEVEL 
537 THE VECTOR AREA (ADDRESS ae 776) IS FILLED WITH THE 
538 INSTRUCTION IOT AND ‘.#2° (NEXT ADDRESS). THE PROCESSOR 
539 STATUS IS STARTED AT 7 AND THE ‘ONC IS PROGRAMMED TO INTERRUP? 
540 THE PS IS LOWERED BY 1 UNTIL THE DMC INTERRUPTS, A DELAY IS 
541 MADE AND IF NO INTERUPT OCCURES AT PS LEVEL 3 (BECAUSE OF A 
542 BAD DMC11) THE PROGRAM ASSUMES VECTOR ADDRESS 300 AT BR LEVEL 
543 5 AND THE PROBLEM SHOULD BE FIXED IN THE DIAGNOSTIC. ONCE THE 
544 PRCBLEM IS FIXED; THE PROGRAM SHOULD BE RE-SETUP AGAIN TO GET 
545 CORRECT VECTOR. IF AN INTERUPT OCCURED; THE ADDRESS TO WHICH 
546 THE DMC11 INTERUPTED TO IS PICKED UP AND REPORTED AS THE 
547 VECTOR. NOTE: IF THE VECTOR REPORTED IS NOT THE VECTOR SET 
548 UP BY YOU; THERE IS A PROBLEM AND AUTO SIZING SHOULD NOT BE 
rH DONE. 
$2 8.6 SOFTWARE SWITCH REGISTER 
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SEQ 0013 
566 
567 
+e SWR=XXXKKN NEW? 
$70 WHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWARE SWIT"H 
$71 REGISTER IN OCTAL. THE SOFTWARE CONTROL ROUTINE WILL THEN 
$72 AWAIT OPERATOR ACTION. AT WHICH TIME THE OPERATOR IS REQUIRED 
$73 TO TYPE ONE OR MORE OF THE LEGAL CHARACTERS: 1) 0 - 7, 2) 
$74 LINE FEED(<LF>), 3) CARRIAGE RETURN(<CR>), OR 4) CONTROL-U 
575 (CTRL U). NO CHECK IS MADE FOR LEGALITY. IF THE INPUT 
576 CHARACTER IS NOT A <LF>, <CR>, OR CTRL U IT IS ASSUMED TO BE 
4h AN OCTAL DIGIT. 
$°9 TO CHANGE THE CONTENTS OF THE SSR THE OPERATOR SIMPLY TYPES 
580 THE NEW DESIRED VALUE IN OCTAL - LEADING ZEROS NEED NOT BE 
581 TYPED. AND TERMINATES THE INPUT STRING WITH A <CR> OR <LF> 
582 DEPENDING ON THE PROGRAM ACTION DESIRED AS DESCRIBED BELOW. 
$83 THE INPUT VALUE WILL BE TRUNCATED TO THE LAST 6 DIGITS TYPED. 
"84 AT LEAST ONE DIGIT MUST BE TYPED ON ANY GIVEN INPUT STRING 
ga PRIOR TO THE TERMINATOR BEFORE A CHANGE TO THE SSR WILL OCCUR. 
$87 WHEN THE INPUT STRING IS TERMINATED WITH A <CR> THE DIAGNOSTIC 
588 WILL CONTINUE EXECUTION FROM THE POINT AT WHICH IT WAS 
589 INTERRUPTED. IF A <CR> IS THE ONLY THING TYPED THE PROGRAM 
590 WILL CONTINUE WITHOUT CHANGING THE SSR. THE <iLF> DIFFERS FROM 
591 THE <CR> BY RESTARTING THE PROGRAM AS IF IT WERE RESTARTED AT 
ra ADDRESS 200. 
$94 IF A CTRL U IS TYPED AT ANY POINT IN THE INPUT STRING PRIOR TO 
$$5 THE TERMINATOR THE INPUT VALUE WILL BE DISREGARDED AND THE 
zoe PROMPT DISPLAYED (SWR = XXXXXX NEW?). 
598 TO SET THE SSR FOR THE STARTING SWITCHES, FIRST LOAD THE 
+8 DIAGNOSTIC, THEN HIT CTRL G, THEN START THE DIAGNOSTIC. 
6 
601 
+ 9.0 HISTORY 
604 THIS DIAGNOSTIC WAS UPDATED TO DETECT FOR THE CONDITION OF V.55 
605 AND M8201. IN THIS CONIFURATION, RING WILL NOT BE LOOPED BACK 
606 Aw SHOULD NOT RE TESTED FOR. 
607 
608 
609 g 
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INTRODUCTION TO DMC11 DIAGNOSCTIC 


;*AC-8552D-MC_ — -DMC11 DDOCMP MODE LINE UNIT TESTS 
s SCOPYRIGHT 1976,1978, DIGITAL CQUIPMENT CORP., MAYNARD, MASS. 01754 


Pion dae a 
:LOAD PROGRA 

;'.OAD ADDRESS 000200 

; SWR=O AUTOSIZE DOMC11 

;SWO7=1 USE CURRENT LACL11 PARAMETERS 
; SwOO=1 oe NEW DMC11 PARAMETERS 


PROGRAM iLL TYPE ‘'AC- yy DMC11 DDCMP MODE LINE UNIT TESTS" 
;PROGRAM WILL TYPE STATUS M™ 

;PROGRAM WILL TYPE ‘'R’’ TO INDICATE THAT TESTING HAS STARTED 

AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 

;AND THEN RESUME TESTING 

; SUBSEQUENT RESTARTS WILL NOT TYPE PROGRAM TITLE 


;SWITCH REGISTER OFTIONS 


SwW15=100000 -=1,HALT ON ERROR 

SW14=40000 ;=1,LOO0P ON CURRENT TEST 

SW13=20000 ;=1, INHIBIT ERROR TYPEOUT 

SW12=10000 ;=1,DELETE TYPEOUT/BELL ON ERROR. 

$W11=4000 >=1, INHIBIT ITERATIONS 

$w10=2000 :=1,ESCAPE TO NEXT TEST ON ERROR 

$W09=1000 -=1,L00P WITH CURRENT DATA 

$Ww08=400 -=1,LO0P ON ERROR 

$Ww07=200 -=1,USE CURRENT DMC11 PARAMETERS, =0,AUTOSIZE DMC11 
$wW06=100 -=1, HALT BEFORE CLOCKING MICRO-PROCESSOR INSTRUCTION 
Sw05=40 

$W04=20 

Sw03=10 :RESELECT DMC11°S TO BE TESTED (ACTIVE) 

SwWO2=4 ;LOCK ON TEST SELECT 

SwWwO1=2 >RESTART PROGRAM AT SELECTED TEST 


Sw00=1 ; INPUT DMC11 PARAMETERS 


TE eam ae” —— 
= 
—— = _—_— mr re eee eee - —— 2} 


Cr 


-— ree i ee ree — « 


| Ciara 1.7 Wine NEL decade CS ¢ 2 ea ets, 


CZDME MACY11 30A(1052) O7-JUL-80 15:53 PAGE 15 
CZ2DME.P11 01-JUL-80 15:29 GENERAL DEF INATIONS AND EQUIVALENCIES 


656 
657 
658 REGISTER DEFINITIONS 
659 femme ee eecececeee= 
660 
661 000000 RO=%0 ; GENERAL REGISTER 
662 000001 R1=%1 :GENERAL REGISTER 
663 000002 R2=%2 GENERAL REGISTER 
664 000003 R3=%3 GENERAL REGISTER 
665 000004 R4=%4 ;GENERAL REGISTER 
666 000005 R5=%5 :GENERAL REGISTER 
667 000006 CO=%6 PROCESSOR STACK POINTER 
< 000007 PC=%7 PROGRAM COUNTER 
oy :LOCATION EQUIVALENCIES 
672 
673 177776 PS=177776 PROCESSOR STATUS WORD 
or 001200 STACK=1200 START OF PROCESSOR STACK 
676 : INSTRUCTION DEFINITIONS 
678 eee, ee oe 
679 005746 PUSH1SP=5746 :DECREMENT PROCESSOR STACK 1 WORD 
680 005726 POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 
681 010046 PUSHRO=10046 :SAVE RO ON STACK 
682 012600 POPRO=12600 RESTORE RO FROM STACK 
683 (24646 PUSH2SP=24646 ;DECREMENT STACK TWICE 
684 022626 POP2SP=22626 > INCREMENT STACK TWICE 
aH -EQUIV.) EMT.HLT ;BASIC DEFINITION OF ERROR CALL 
687 :BIT DEFINITIONS 
688 3 Boacecaeesanses 
689 
690 109000 B11T15=100000 
691 040000 B11T14=40000 
692 020000 B1T13=20000 
693 010000 B1T12=10000 
694 004000 B11T11=4000 
695 002000 B1T10=2000 
696 001000 BI T9=1000 
697 000400 B1T8=400 
698 000200 B1T7=200 
699 000100 B1T6=100 

000640 B11T5=40 
701 000020 BI T4=20 
702 000010 BJ] T3=10 
703 000004 BIT2=4 
704 000002 BJ T1=2 

BITO=1 


705 000001 
06 





SEQ 0015 
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709 PRAHA RREAAARARHEATEKEKEHE TEKH KEAHeHHKKKeAKeKKeKeteteKeteteteneeteeeee 
710 aaa aaa aerate eee 
711 ; TRAPCATCHER FOR ILLEGAL INTERRUPTS 

712 : THE STANDARD ‘TRAP CATCHER’ IS PLACED 

713 : BETWEEN ADDRESS 0 TO — 776. 

Ne ;1T LOOKS LIKE ‘’PC+2 HALT 

716 peer ee ne RE A TE A terme ma Rea 
717 

718 000000 .=0 

719 ;STANDARD INTERRUPT VECTORS 

7200s meme m eee eeeoece 

721 

722 000024 =24 

723 000024 005336 PFAIL ;POWER FAIL HANDLER 

724 000026 000340 40 -SERVICE AT LEVEL 7 

725 000030 004750 HLT >ERROR HANDLER 

726 000032 000340 40 -SERVICE AT LEVEL 7 

727 000034 004716 . TRPSRV : GENERAL HANDLER DISPATCH SERVICE 

728 000036 000340 340 -SERVICE AT LEVEL 7 

729 000040 =40 

730 000040 000000 0 >SAVE FOR ACT=-11 OR XXDP 

731 000042 000000 0 :RETURN ADDRESS IF UNDER ACT=-11 OR XXDP 
732 000044 000000 0 >SAVE FOR ACT=-11 OR XXDP 

733 000046 003522 SENDAD >FOR USE WITH ACT=11 OR XXDP 

734 000052 = 

rae 000052 000000 0 :ACT=11 PROGRAM CHARACTERISTICS 

737 000174 =174 

738 000174 000000 DISPREG:0 -SOFTWARE DISPLAY REGISTER 

ty. 000176 000000 SWREG: 0 -SOFTWARE SWITCH REGISTER 

741 000200 .=200 

mat 000200 000137 002002 JMP START :GO TO START OF PROGRAM 

744 

745 001000 -=1000 

746 001000 005377 041501 034055 MTITLE: .ASCII] <377><12>/AC-8552D-MC/<377> 

4h 001016 046504 030503 020061 -ASCIZ /DMC11 DDOCMP MODE LINE UNIT TESTS/<377> 

SH 001200 .=1200 

oe : INDIRECT POINTERS TO SWITCH REGISTER AND LIGHT DISPLAY 

751 

752 001200 177570 DISPLAY:177570 

753 001202 177570 Swe: 177570 
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CZ7DME.P11 01-JUL-80 15:29 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0017 
754 
a? > INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
757 : 
758 001204 177560 TKCSR 177560 : TELETYPE KEYBOARD CONTROL REGISTER 
759 001206 177562 TKDBR: 177562 : TELETYPE KEYBOARD DATA BUFFER 
760 001210 177564 TPCSR 177564 :TELEPRINTER CONTROL REGISTER 
re) 001212 177566 TPDBR: 1775466 -TELEPRINTER DATA BUFFER 
763 PROGRAM CONTROL PARAMETERS 
he: fone nEieeeaeensaasens 
6 
766 001214 000000 RETURN: 0 SCOPE ADDRESS FOR LOOP ON TEST 
767 001216 000000 NEXT: 0 >ADDRESS OF NEXT TEST TO BE EXECUTED 
768 001220 000000 LOCK: 0 ;ADDRESS FOR LOCK ON CURRENT DATA 
769 001222 000003 ICOUNT: 3 ‘NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
770 001224 000000 LPCNT: Q :NUMBER OF ITEREATIONS COMPLETED 
771 001226 000000 TSTNO: O :NUMBER OF TEST IN PROGRESS 
772 001230 000000 PASCNT: Q ;NUMBER OF PASSES COMPLETED 
773 001232 000000 ERRCNT: 0 : TOTAL NUMBER OF ERRORS 
4 001234 000000 LSTERR: 0 -PC OF LAST ERROR CALL 
776 PROGRAM VARIABLES 
+78 Se era 
779 001236 000000 STRTSW: 0 -SWITCHES AT START OF PROGRAM 
780 001240 000000 STAT: 0 >DM STATUS WORD STORAGE 
781 001242 000000 CLKX: 0 
782 001244 000000 MASKX: 0 
783 001246 000000 TEMP1: 0 : TEMPORARY STORAGE 
784 001250 000000 TEMP2: 0 TEMPORARY STORAGE 
785 001252 000000 TEMP3: 0 - TEMPORARY STORAGE 
786 001254 000000 TEMP4: 0 TEMPORARY STORAGE 
787 001256 000000 TEMPS: 0 : TEMPORARY STORAGE 
788 001260 000000 : 0 -RO STORAGE 
789 001262 000000 0 -R1 STORAGE 
790 001264 00000 0 >R2 STORAGE 
791 001266 000000 0 -R3 STORAGE 
792 001270 000000 0 -R4 STORAGE 
793 001272 000000 0 -R5 STORAGE 
794 001274 000000 0 STACK POINTER STORAGE 
795 001276 000000 0 ;PROGRAM COUNTER STORAGE 
796 001300 000000 0 
797 001302 000001 1 
798 001304 000000 : 0 >HIGHEST LOCATION FOR NPR'S 
799 001306 000 : ,BLKW 1 :DMC11'°S SELECTED ACTIVE. 
800 001310 000001 > ,BLKW 1 -OCTAL NUMBER OF DMC11°S. 
801 001312 000001 : ,BLKW 1 sORIGINAL ACTV DEVICES 
802 001314 000001 > ,.BLKW 1 ; WORKABLE NUMBER 
Bhs 001316 000000 0 >POINTER TO RUNNING DEVICE. 
805 001320 001472 DM. MAP -6 > TABLE POINTER. 
B06 001322 001676 CNT .MAP-4 >TABLE POINTER 
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CZ7DME .P11 01-JUL-80 15:29 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0018 

807 
808 ;PROGRAM CONTROL FLAGS 
B10 BREE eRe Mc 
811 001324 000 INIFLG: .BYTE y :PROGRAM INITIALIZATION FLAG 
B12 001325 000 ERRFLG: .BYTE 0 sERROR OCCURED FLAG 
813 001326 000 LOKFLG: .BYTE 0 >LOCK ON CURRENT TEST FLAG 
814 001327 000 QV.FLG: .BYTE 0 ;QUICK VERIFY FLAG. 
815 -ON FIRST PASS OF EACH DMC11 ITERATIONS WILL BE SUPPRESS 
a9 EVEN 
818 :DEFINITIONS FOR TRAP SUBROUTINE CALLS 
B19 :POINTERS TO SUBROUTINES CAN BE FOUND 
+} IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 

i B22 see eHeeteneeeteeetereteeeertteHeateeteneeeteneeereeeteeererereteres 
823 fee ee eee en ee ee ene e meen e meee esos eee ee es cones ence neeeneeen= 
824 001330 _TRPTAB: 
825 104400 SCOPE =TRAP+0 :CALL TO SCOPE LOOP AND ITERATION HANDLER 
826 001330 003576 . SCOPE 
827 104401 SCOP1=TRAP+1 -CALL TO LOOP ON CURRENT DATA HANDLER 
828 001332 003736 SCOP1 
829 104402 TYPE= mnabes -CALL TO TELETYPE OUTPUT ROUTINE 
830 001334 003766 TYPE 
831 104403 INSTR=TRAP+3 -CALL TO ASCII STRING INPUT ROUTINE 
832 001336 004050 INSTR 
833 104404 INSTER=TRAP +4 -CALL TO INPUT ERROR HANDLER 
834 001340 004154  INSTER 
835 104405 PARAM= TRAP +5 :CALL TO NUMERICAL DATA INPUT ROUTINE 
836 001342 0046174 .PARAM 
837 104406 SAVO5= TRAP +6 -CALL TO REGISTER SAVE ROUTINE 
B38 001344 004374 . SAV05 
839 104407 RESOS= TRAP+? -CALL TO REGISTER RESTORE ROUTINE 
B40 001346 004434 -RESOS 
841 104410 CONVRT=TRAP*+10 -CALL TO DATA OUTPUT ROUTINE 
842 001350 004466 .CONVRT 
843 104411 CNVRT=TRAF +11 -CALL TO DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
B44 001352 004472 . CNVRT 
845 104412 MSTCLR= TRAP #12 -CALL TO ISUE A MASTER CLEAR 
846 001354 005466 -MSTCL 
847 104413 DELAY= reaps 13° -CALL TO DELAY 
848 001356 005436 .DELA 
849 104214 nonti metas 14 -CALL TO CLOCK ROM ONCE 
850 001360 005504 .ROMCLK 
851 104415 DATACLK=TRAP+15 :CALL TO CLK DATA 
852 001362 005552 DATACLK 
853 104416 TIMER=TRAP+16 :CALL TO DELAY A CLOCK TICK 
854 001364 005616 . TIMER 
855 
B56 ae eee eee emer meee nee eese sence eeeseeeessessesese= 


857 ROR eeee teen teen eeeeeeeneeeereneneeeeereeereeneeeeeerenereneeeneenes 
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CZ7DME .P11 01-JUL-80 15:2 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0019 
89 >DMC11 CONTROL INDICATORS FOR CURRENT DMC11 UNDER TEST 
860 
861 001366 000000 STATI: 0 
B62 001370 000000 STAT2: 0 
ae? 001372 000000 STATS: 0 
oH ;DMC11 VECTOR AND REGISTER INDIRECT POINTERS 
867 
868 001374 000000 DMRVEC: 0 :POINTER TO DMC11 RECEIVER INTERRUPT VECTOR 
869 001376 000000 CMRLVL: 0 -POINTER TO DMC11 RECEIVER INTERRUPT SERVICE PS 
870 001400 000000 DMTVEC: 0 -POINTER TO DMC11 TRANSMITTER INTERRUPT VECTOR 
871 001402 000000 DMTLVL: 0 >POINTER TO DMC11 TRANSMITTER INTERRUPT SERVICE PS 
872 001404 000000 DMCSR: 0 -POINTER TO DMC11 CONTROL STATUS REGISTER 
873 001406 000000 DMCSRH: 0 -POINTER TO DMC11 CONTROL STATUS REGISTER HIGH BYTE. 
874 001410 000000 DMCTL: 0 *POINTER TO DMC11 CONTOL OUT REGISTER 
875 001412 000000 DMPO4: 0 -POINTER TO DMC11 PORT REGISTER(SEL 4) 
th 001414 000000 DMPO6: 0 -POINTER TO DMC11 PORT REGISTER(SEL 6) 
878 > TEMP STORAGE 
879 pero eee ees--- 
880 
881 001416 00v0000 TEMP: 0 
zt 001460 =. +40 
aes -DMC11 STATUS TABLE AND ADDRESS ASSIGNMENTS 
886 
887 001500 .=1500 
888 001500 DM.MAP: | 
889 001500 000001 DMCROO: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 00 
890 001502 000001 DMS100: .BLKW 1 -VECTOR FOR DMC11 NUMBER 00 
891 001504 000001 DMS200: .BLKW 1 -DDCMP LINE# FOR DMC11 NUMBER 00 
4 001506 000001 DMS300: .BLKW 1 -3RD STATUS WORD 
894 001510 000001 DMCRO1: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 01 
895 001512 000001 OMS101: .BLKW 1 -VECTOR FOR DMC11 NUMBER 01 
896 001514 000001 DMS201: .BLKW 1 -DDCMP LINE# FOR DMC11 NUMBER 01 
ree 001516 000001 DMS301: .BLKW 1 -3RD STATUS WORD 
899 001520 000001 DMCRO2: .BLKW 1 -CONTROL STATUS REGISTER FOR DMC11 NUMBER 02 
900 001522 000001 DMS102: .BLKW 1 -VECTOR FOR DMC11 NUMBER 02 
901 001524 000001 DMS202: .BLKW 1 -DDCMP LINE# FOR DMC11 NUMBER 02 
a 001526 000001 DMS302: .BLKW 1 :3RD STATUS WORD 
904 001530 000001 DMCRO3: .BLKW 1 -CONTROL STATUS REGISTER FOR DMC11 NUMBER 03 
905 001532 000001 DMS103: .BLKW 1 -VECTOR FOR DMC11 NUMBER 03 
906 001534 000001 9MS203: .BLKW 1 -DDCMP LINE# FOR DMC11 NUMBER 03 
4 001536 000001 DMS303: .BLKW 7 >3RD STATUS WORD 
909 001540 000001 DMCRO4: .BLKW 1 :CONTROL STATUS REGISTER FOR DMC11 NUMBER 04 
910 001542 000001 0MS104: .BLKw 1 -VECTOR FOR DMC11 NUMBER 04 
911 001544 000001 DMS204: .BLKW 1 -DDCMP LINE# FOR DMC11 NUMBER 04 
ae 001546 000001 DMS304: .BLKW 1 -3RD STATUS WORD 
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001556 
001560 


001566 


001570 
001572 
001574 
001576 


001600 
001602 
001604 
001606 


001610 
001612 
001614 
001616 


001620 
001622 
001624 
001626 


001630 





MACY11 te a 
01-JUL-80 15: 


000001 


000001 


000001 
000001 
000001 
000001 


000001 
000001 
000001 
000001 


000001 
000001 
000001 
000001 


000001 . 


000001 
000001 
000001 
000001 
000001 
000001 
000001 


090001 


000001 
000001 


000001 
000001 
000001 
000001 
000001 
000001 


000001 
000000 
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DMCROS: 
: ,BLKW 
: .BLKW 
DMS305: 


DMCRO6: 
: .BLKW 
: .BLKW 
DMS 306: 


DMCRO?7: 
C%S107: 
DMS207: 
DMS307: 


DMCRI10: 
DMS110: 
DMS210: 
DMS310: 


DMCR11: 
DMS111: 
DMS211: 
DMS311: 


DMCRI2: 
: ,BLKW 
> .BLKW 
DMS312: 


DMCR13: 
DMS113: 
DMS213: 
DMS313: 


DMCR14: 
DMS114: 
DMS214: 
DMS314: 
DMCR15: 
>: .BLKW 
: .BLKW 
DMS315: 


DMCRI6: . 


DMS316: . 
DMCRI7: . 


DMS317: . 
DM.END: 


~BLKW 


~BLKW 
~BLKW 


~BLKW 
~BLKW 
~BLKW 
~BLKW 


-BLKW 
~BLKW 
~BLKW 
~BLKW 


-BLKW 
~BLKW 
~BLKW 
.BLKW 


~BLKW 


~BLKW 


~BLKW 
~-BLKW 
.BLKW 
~BLKW 


~BLKW 
~BLKW 
~BLKW 
-BLKW 


~BLKW 


000000 


— —) ss — 


;CONTROL STATUS REGISTER FOR DMC11 
:VECTOR FOR DMC11 NUMBER 05 

“DDCMP LINE# FOR DMC11 NUMBER 05 
:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
; VECTOR FOR DMC11 NUMBER 06 

;DDCMP LINE# FOR DMC11 NUMBER 06 
;35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
; VECTOR FOR DMC11 NUMBER 07 

;DDCMP LINE# FOR DMC11 NUMBER 07 

; 35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
; VECTOR FOR DMC11 NUMBER 10 

;DDCMP LINE# FOR DMC11 NUMBER 10 

; 35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 11 

;DDCMP LINE# FOR DMC11 NUMBER 11 

; 35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 12 

;DDCMP LINE# FOR DMC11 NUMBER 12 
;3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
:VECTOR FOR DMC11 NUMBER 13 

;DDCMP LINE# FOR DMC11 NUMBER 13 

; 35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 14 

;DDCMP LINE# FOR DMC11 NUMBER 14 
;35RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
:VECTOR FOR DMC11 NUMBER 15 

;DDCMP LINE# FOR DMC11 NUMBER 15 
:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
:VECTOR FOR DMC11 NUMBER 16 
;DDCMP LINE# FOR DMC11 NUMBER 16 


:3RD STATUS WORD 


;CONTROL STATUS REGISTER FOR DMC11 
;VECTOR FOR DMC11 NUMBER 17 

“DDCMP LINE# FOR DMC11 NUMBER 17 
;3RD STATUS WORD 
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NUMBER 
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NUMBER 


NUMBER 


NUMBER 


NUMBER 
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06 


07 
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001702 
001702 
001704 


001706 
001710 


001712 
001714 


001716 
001720 


001722 
001724 


001726 
001730 


001732 
001734 


001736 
001740 


001742 
001744 


001746 
001750 


001752 
001754 


001756 
001760 


001762 
001764 


001766 
001770 


001772 
001774 


001776 
002000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
090000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 
000000 
000000 


000000 
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ee <Qqp Gee ee eee ee. —_ 


;DMC11 PASS COUNT AND ERROR COUNT TABLE 


CNT MAP: 

PACTOO: 0 >PASS COUNT FOR DMC11 NUMBER 00 

ERCTOO: 0 -ERROR COUNT FOR DMC11 NUMBER 00 
PACTO1: 0 -PASS COUNT FOR DMC11 NUMBER 01 

ERCTO1: 0 sERROR COUNT FOR DMC11 NUMBER 01 
FaACTO2: 0 :PASS COUNT FOR DMC11 NUMBER 02 

FRCTN2: 0 -ERROR COUNT FOR DMC11 NUMBER 02 
PACTO3: 0 >PASS COUNT FOR DMC11 NUMBER 03 

ERCTO3: OQ -ERROR COUNT FOR DMC11 NUMBER 03 
PACTO4: 0 -PASS COUNT FOR DMC11 NUMBER 04 

ERCTO4: 0 -ERROR COUNT FOR DMC11 NUMBER 04 
PACTOS: 0 :PASS COUNT FOR DMC11 NUMBER 05 

ERCTOS: 0 -ERROR COUNT FOR DMC11 NUMBER 95 
PACTO6: 0 :PASS COUNT FOR DMC11 NUMBER 06 

ERCTO6: O sERROR COUNT FOR DMC11 NUMBER 06 
PACTQ7: 0 -PASS COUNT FOR DMC11 NUMBER 07 

ERCTO7: 0 -ERROR COUNT FOR DMC11 NUMBER 07 
PACT10: 0 >PASS COUNT FOR DMC11 NUMBER 10 

ERCT10: OQ >ERROR COUNT FOR DMC11 NUMBER 10 
PACT11: 0 >PASS COUNT FOR DMC11 NUMBER 11 

ERCT11: 0 -ERROR COUNT FOR DMC11 NUMBER 11 
PACT12: 0 :PASS COUNT FOR DMC11 NUMBER 12 

ERCT12: 0 -ERROR COUNT FOR DMC11 NUMBER 12 
PACT13: 0 >PASS CGUNT FOR DMC11 NUMBER 13 

ERCT13: 0 >ERROR COUNT FOR DMC11 NUMBER 13 
PACT14: 0 :PASS COUNT FOR DMC11 NUMBER 14 

ERCT14: 0 *ERROR COUNT FOR DMC11 NUMBER 14 
PACT15: 0 :PASS COUNT FOR DMC11 NUMBER 15 

ERCT15: 0 -ERROR COUNT FOR DMC11 NUMBER 15 
PATT16: 0 >PASS COUNT FOR DMC11 NUMBER 16 

ERCT16: 0 >ERROR COUNT FOR DMC11 NUMBER 16 
PACT17: 0 -PASS COUNT FOR DMC11 NUMBER 17 

ERCT17: 0 >ERROR COUNT FOR DMC11 NUMBER 17 


SEQ 0021 


— ee ee > ee ee ee 
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CZDME MACY11 30A(1052) 
CZDME .P11 01-JUL-80 15 


1023 
FORMAT OF STATUS TABLE 


16 14 13 12 11 #10 09 08 O07 06 05 04 03 O02 O01 00 


l I 
. 8. 4. F228. y oe ee Oe Oe eT PS CSR 


ee 2358 Be See eo ee oe I 
CPPS Te erate eee 2 ££ £4. FOR ee STATI 
Te Te Dh ee ee eG ee l 


I 
‘tnd “ys ho 8 49th Le 8 # ed stata 


i! ae te 
Ra ae es STATS 
i-8. @ 5% 


CSR: CONTAINS DMC11 CSR ADDRESS 


STATI: 0-08 IS DMC11 VECTOR ADDRESS 
1 MICRO-PROCESSOR HAS CRAM 
0 MICRO-PROCESSOR HAS CROM 
1 72??? TURNAROUND CONNECTOR IS ON 
Q NO TURNAROUND CONNECTOR 
QO LINE UNIT IS AN M8201 
+ UNIT IS AN M8202 
9 I 


INE UNIT 
S$ DMC11 BR PRIORITY LEVEL 


STAT2: LOW BYTE IS SWITCH PAC#1 (DDCMP LINE NUMBER) 
HIGH BYTE IS SWITCH PAC#2 (BM875 BOOT ADD) 


STATS: BITO=1 DO FREE RUNNING TESTS ON KMC 
(MUST BE SET TO A ONE MANUALLY CPROGRAM DZDMI ONLY])) 
KMC MUST HAVE MICRO-CODE WRITTEN FROM RUNNING 
DZDMG TEST 2 FIRST 

4 1 DMC11-AL LOCAL HIGH SPEED MICRO-CODE 

BIT 

BiT 


wDowoaqwnqaqnnqawq 
me GH he tee bw bs Oe 


0 DMC11-AR REMOTE LOW SPEED MICRO-CODE 
0 DMC11-DA (RS232C) 
1 DMCII-FA (v.55) 


1 
1 
2 
2 


—--e-- oe. ce -.— < ~ -- -_—— = - -_ . — eo. 
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1081 
1082 ;PROGRAM INITIALIZATION 
RRUPTS 
1085 ;SET UP POWER FAIL VECTOR 
1086 ;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
1087 ;TYPE TITLE MESSAGE 
1089 002002 737 000340 177776 .START: MOV #340 ,PS ;LOCK OUT INTERRUPTS 
002010 706 001200 MOV #STACK,SP ;SET UP STACK 
737 005336 000024 MOV #.PFAIL ,a#24 ;SET UP POWER FAIL VECTOR 
737 001310 001314 MOV DANUM , SAVNUM ;SAVE NUMBER OF DEVICES IN SYSTEM. 
037 010144 CLR SWFLG ;CLEAR SOFT TYPEOUT FLAG 
037 001325 CLRB ERRFLG ;CLEAR ERROR FLAG 
037 001327 CLRB QV.FLG ;ZERO QUICK VERIFY FLAG 
1320 MOV #DM.MAP-10,CREAM;GET MAP POINTER. 
737 001676 001322 MOV #CNT.MAP=4,MILK ;GET PASS COUNT MAP POINTER 
1316 MOV #B1T15,RUN ;POINT POINTER TO FIRST DEVICE. 
001702 MOV #CNT.MAP,RO ;PASS COUNT POINTER TO RO 
020 23$: CLR (RO) + ; TABLE 
700 002002 CMP ee ;DONE YET? 


;KEEP GOING 
037 001234 CLR LSTERR ; 


737 000001 0 , 

737 002002 0 MOV #.START,RETURN ;SET UP FOR POWER FAIL BEFORE 
>TESTING STARTS 

746 000006 MOV a#t ,-(SP) ;SAVE CURRENT VECTORS 


$332 

~~ 3 2 OO 
© 

 - ) 


N 
CLEAR LAST ERROR POINTER 
? MOV #1,TSTNO ;SET UP FOR TEST 1 


es 000004 MOV a#4 ,-(SP) ; 
;SET UP FOR TIMEOUT 


3 #6$.a#6 
737, 177570 001202 MOV #177570, SWR “SET SWR TO HARD SWR ADDRESS 
737. 177570 001200 MOV #177570, DISPLAY :SET DISPLAY TO HARD SWR ADDRESS 
777. (177777 +177020 CMP #-1,aSwR “REFERENCE HARDWARE SWITCH REGISTER 
6$+2 “IF = <1 USE SOFT SWR ANYWAY 
0 BR 7$ “IF IT EXISTS AND NOT = -1 USE HARD SwWR 
26 6$: CMP (SP)+, (SP)+ “ADJUST STACK 


6 
737 000176 001202 MOV #SWREG, SUR ;POINTER TO SOFT SWR 

737 000174 001200 MOV #DISPREG,DISPLAY;POINTER TO SOFT DISPLAY REG 

637 000004 7$: MOV (SP)+,a#4 ;RESTORE VECTORS 

637 000006 MOV (SP)+,a#6 ; 

737 001324 TSTB INIFLG —y — ee ee BEEN PERFORMED 


20% ; ES 
003522 000042 CMP eee ae ;1F ACT=11 AUTOMATIC MODE, DON'T TYPE ID 


B 
001000 TYPE  ,MTITLE :TYPE TITLE MESSAGE 
20$: JSR PC,CKSWR “CHECK FOR SOFT SwWR 
176734 001236 MOV aSWR,STRTSW “STORE STARTING SWITCHES 
000042 TST a#42 -1$ IT RUNNING IN AUTO MODE? 
BEQ .*6 :BR IF NO . 
001236 CLR STRTSW “IF YES, CLEAR SWITCHES 
000001 001236 BIT wSWOO,STRTSW :IF SWOO=1. QUESTIONS ARE ASKED. 
17$ “BR IF SwOO=1 
001236 TSTB STRTSY “BIT7?=12? 


;BR IF SwWO7=0 

001306 TST DMACTV ;ARE ANY DEVICES SELECTED? 
BNE 16% :BR IF Y 

007154 TYPE, NOACT ;NO DEVICES SELECTED. 


S 
m 
a 
© 
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7 002312 0006000 HALT :STOP THE SHOW 
8 002314 000776 BR 72 “DISQUALIFY CONTINUE SWITCH 
9 002316 004737 010640 17$: JSR PC,AUTO.SIZE “GO DO THE AUTO SIZE 
0 002322 105737 001324 168: TSTB INIFLG FIRST TIME? 
1 O05 268 001410 BEQ 21$ :BR IF YES 
2 0023 105737 001236 TSTB STRTSW -IF USING SAME PARAMETERS DONT TYPE MAP 
3 002334 100431 BM! 1$ 
4 002336 032737 000006 001236 BIT #BITI'BIT2,STRTSW;IS TEST NO. OR LOCK SELECTED 
§ 002344 001403 BEQ 243 :1F NO THEN TYPE STATUS 
6 002346 B00s 6s BR 1$ - iF ves DO NOT TYPE STATUS 
7 002350 005157 001324 21$: COM INIFLG -SET FLAG 
8 002354 104402 006224 24$: TYPE , XHEAD ee HEADER 
9 002360 012704 001500 MOV #OM.MAP,RG : SET POINTER 
0 2364 010437 001246 S$: MOV R4, TEMP! :SET ADDRESS 
1 002370 012437 001250 MOV (R4)+, TEMP2 -SET CSR 
2 002374 001411 BEQ 1$ ALL DONE IF ZERO 
3 2376 012437 001252 MOV (R4)+, TEMPS :SET STATI 
4 062402 012437 001254 MOV (R4)+, TEMPS >SET STAT2 
5 002406 012437 001256 MOV (R4)+, TEMPS :SET STATS 
6 002412 104410 CONVRT -TYPE OUT STATUS MAP 
7 002414 007602 XSTATQ : 
8 002416 000762 je $$ 
: 002420 012700 001500 1$: MOV #DM.MAP,RO -RO POINTS TO STATUS TABLE 
1 cea GAG GREE Te oe et ne ee eee 
2 * eAUTO SIZE TEST 
3 ::*THIS TEST VERIFYS THAT THE DMC11S AND/OR KMC11S ARE AT THE CORRECT FLOATING 
64 >> #ADDRESSES FOR YOUR SYSTEM. IF THIS TEST FAILS, IT IS NOT A HARDWARE ERROR. 
65 :  @CHECK THE ADDRESSES OF ALL FLOATING DEVICES (0J,DH,DQ,DU, DUP, LK DMC ,DZ,KMC). 
56 ::e]F THERE ARE NO OTHER FLOATING DEVICES BEFORE THE DMC11, THE FIRST 
67 ::#DMC11 ADDRESS IS 760070, KMC11 IS 760110. NO DEVICE SHOULD EVER BE AT 
68 : = ADDRESS 760000. THIS TEST MAY REQUIRE 2 OR MORE ATTEMPTS TO GET THE 
69 ::#RIGHT ADDRESSES. AFTER YOU HAVE CHANGED THE ADDRESS TO WHAT IT TOLD 
70 -:#YOU THE FIRST TIME, IT MAY COME BACK AND TELL YOU A DIFFERENT ADDRESS 
71 = ®THE NEXT TIME YOU RUN IT. PLEASE HAVE PATIENCE, THE FINAL ADDRESS 
e sewill OE CORRECT (AS LONG AS ALL DEVICES IN FRONT OF THE DMC'S ARE 
6 
74 Se paatnacnedeeenabnensiennnianemsmintneiaaniaaniinmentiannenatintien 
75 
76 002424 013746 000004 MOV a#4 ,-(SP) SAVE LOC 4 
77 002430 013746 000006 MOV a#6,-(SP) :SAVE LOC 6 
78 2434 005037 000006 CLR a#6 *CLEAR VEC+2 
79 2440 005037 001252 CUR TEMPS *CLEAR FLAG 
80 2444 905005 CL R5 “R5= O=DMC, R5=-1=KMC 
81 002446 011937 001404 AUSTRT: MOV (RO) ,DMCSR “GET NEXT DMC CSR 
82 002452 001564 BEQ AUDONE -BR IF DONE 
83 002454 005705 TST RS DMC OR KMC? 
84 002456 001005 BNE 1$ , “BR IF KMC 
85 002460 032760 100000 000002 BIT #B1T15,c (RO) “CHECK FOR DMC CSR 
86 002466 001061 BNE SKIP -SKIP IF NOT DMC 
87 002470 000404 BR 2$ ITS A DMC SO CONTINUE 
88 002472 032760 100000 000002 13: BIT #B1T15,2(R0) CHECK FOR KMC CSR 
89 002500 Boles BEQ SKIP SKIP IF NOT KMC 
90 Bosets 12737 002674 000004 2$: MOV #NODEV,a#4 * SET UP FOR TIMEOUT 
91 002510 005705 TST RS “DMC OR KMC? 
92 002512 001003 BNE 3$ “BR IF KAC 


wll 


mr eee = 
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1193 002514 012703 000006 MOV #6,R3 -R3 IS COUNT OF DEVICES BEFORE DAC 
1194 002520 O08 RR 4$ : 
1195 002522 012703 000010 3$: MOV #10,R3 -R3 IS COUNT OF DEVICES BEFORE KMC 
1196 002526 gig Me 003010 4$: MOV #DEVTAB,R2 :R2 IS DEVICE TABLE PONTER 
1197 002532 012701 160010 MOV #160010,R1 :START WITH ADDRESS 160010 
1198 002536 005711 FLOAT: TST (R1) :CHECK ADDRESS IN R1 
1199 002540 111204 MOVB (R2),R4 IF NO TIMEOUT, GET NEXT ADDRESS 
1200 002542 060401 ADD R4 RI IN RI 
1201 002544 005201 INC R1 ; 
1202 002546 040401 BIC R4,R1 ‘ 
1203 002550 005703 TST Ro sANY MORE DEVICES TO CHECK FOR? 
1204 002552 001371 BNE FLOAT ;BR IF YES 
1205 002554 012737 002700 0600004 MOV PERR #4 OK ONLY DMC'S ARE LEFT, SET UP FOR TIMEOUT 
1206 002562 010137 003022 MOV R1,XLOC SAVE FIRST DMC/KMC ADDRESS 
1207 002566 005705 FY: TST R5 >DMC OR KMC? 
1208 002570 001005 BNE 1$ :BR IF KMC 
1209 002572 032760 100000 000002 BIT #B1T15,2(RO) >CHECK FOR DMC CSR 
1210 002600 001014 BNE SKIP :SKIP IF NOT DMC 
1211 002602 000404 ola 2% :;1TS A DAC SO CONTINUE 
1212 002604 032760 100000 000002 1$: BIT #B1T15,2(R0) ;CHECK FOR KMC CSR 
1213 002612 001407 BEQ SKIP :SKIP IF NOT KM 
1214 002614 005711 2$: TST (R1) :CHECK DMC ADDRESS 
1215 002616 020137 001404 CMP R1,DMCSR -DOES Ii MATCH 
1216 002622 001411 BEQ OK ;BR IF YES 
1217 002624 062701 000010 ADD #10,R1 GET NEXT DMC ADDRESS 
1218 002630 000756 BR FY DO IT AGAIN 
1219 002632 062700 000010 SKIP: ADD #10,R0 SKIP TO NEXT CSR IN TABLE 
1220 6 011037 001404 MOV (RO) ,DOMCSR :GET NEXT CSR 
122% 002642 0014 BEQ AUDONE :BR IF DONE 
1222 002644 000750 RR FY ELSE CONTINUE 
1223 002646 062700 000010 OK: ADD #10,R0 :SKIP TO NEXT DMC CSR 
12246 002652 062737 000010 003022 ADD #10,XLOC :UPDATE EXPECTED DMC/KMC ADDRESS 
1225 002660 011037 001404 MOV (RO) ,OMCSR GET NEXT DMC/KMC CSR 
1226 002664 001457 BEQ AUDONE :BR IF DONE 
1227 2666 013701 003022 MOV XLOC,R1 GET EXPECTED DMC/KMC ADDRESS 
1228 002672 000735 bh FY : CONT INUE 
1229 002674 122243 NODEV: CMPB (R2)+,-(R3) ON TIMEOUT, INC R2, DEC RS 
1230 002676 000002 RT] » RETURN 
1231 002700 005737 001252 ERR: TST TEMPS *CHECK FLAG IF = 0 TYPE HEADER 
1232 002704 001014 BNE 1$ SKIP HEADER 
1233 7 104402 TYPE :TYPEOUT HEADER MESSAGE 
1234 002710 007223 CONERR : CONFIGURATION ERROR!!!! 
1235 002712 012737 002700 001276 MOV #ERR, SAVPC SAVE PC FOR TYPEOUT 
1236 002720 104411 CNVRT TYPE OUT ERROR PC 
1237 002722 002770 ERRPC : 
1238 002724 104402 TYPE :TYPE REST OF HEADER 
1239 002726 007277 CNERR ; 
1240 0027 012737 177777 001252 MOV -1, TEMPS -SET FLAG SO IT ONLY GETS TYPED ONCE 
1241 002736 010137 001262 1$: MOV R1,SAVR1 SAVE R1 FOR TYPEOUT 
1242 002742 104410 CONVRT 
1243 002744 002776 CONTAB > TYPE CSR VALUES 
12464 002746 005705 TST R5 DMC OR KMC ? 
1245 002750 001003 BNE 3$ -BR IF KMC 
12466 002752 104402 TYPE 
1247 002754 007320 mcm 
1248 002756 000402 ee 4% : CONT [NUE 


—_————— 
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1249 002760 104402 3$: TYPE 

1250 002762 007330 KMCM 

1251 e7 022626 4$: CMP (SP)+,(SP)+ ADJUST STACK 

1252 002766 000727 RR OK ;BR TO GET OUT 

1253 002770 000001 ERRPC: 1 

1254 002772 00 002 -BYTE 6,2 

1255 002774 001276 SAVPC 

1256 002776 000002 CONTAB: 2 

1257 003 00 004 -BYTE 6,4 

1258 003002 003022 XLOC 

1259 3004 00 002 -BYTE 6,2 

1260 3006 001404 DMCSR 

1261 003010 007 DEVTAB: .BYTE 7 DJ 

1262 003011 017 .BYTE 17 :DH 

1263 003012 007 BYTE 7 ;DQ 

1264 003015 007 .BYTE 7 :DuU 

1265 003014 007 .BYTE 7 ; DUP 

1266 003015 007 BYTE 7 *LK 

1267 003016 007 .BYTE 7 > DMC 

1268 003017 007 BYTE 7 702 

1269 003020 007 .BYTE 7 > KMC 

1270 003022 EVEN 

1271 003022 000000 XLOC: 

1272 003024 005705 AUDONE: TST R5 :DMC? 

1273 003026 001005 BNE 1$ :-BR IF KMC AND ALL DONE 

1274 003030 012705 177777 MOV #-1,R5 >SET RS TO -1 (KMC) 

1275 003034 012700 001500 MOV #DM.MAP,RO -RESET RO TO START OF TABLE 

1276 003040 00060 AR AUSTRT :GO DO KMC'S 

1277 003042 01263 000006 1$: MOV (SP)+,a#6 sRESTORE LOC 6 

1278 012637 000004 MOV (SP)+,a84 sRESTORE LOC 4 

1279 003052 032737 000010 001236 BIT #SWO3,STRTSW sSELECT SPECIFIC DEVICES?? 

1280 001422 BEQ 3$ ;BR IF NO. 

1281 003062 104402 006144 TYPE ,MNEW : TYPE THE MESSAGE. 

1282 3 00500 CLR RO -ZERO DATA LIGHTS 

1283 003070 00000 HALT sWAIT FOR USER TO TELL WHAT DEVICES TO RUN 

1284 003072 027737 176104 001312 CMP aSWR,SAVACT ;1S THE NUMBER VALID? 

1285 003100 101404 BLOS 2$ ;BR IF NUMBER IS OK. 

1286 003102 104402 006005 TYPE ,MERRS ;TELL USER OF INVALID NUMBER. 

1287 003106 000 HALT :STOP EVERY THING. 

1288 003110 000776 BR 72 >RESTART THE PROGRAM AGAIN. 

1289 003112 017737 176064 001306 2$: MOV aSWR,DMACTV :GET NEW DEVICE PATTERN 

1290 003120 013700 001306 MOV DMACTV,RO :;SHOW THE USER WHAT HE SELECTED. 

1291 003124 00 HALT :CONTINUE DYNAMIC SWITCHES. 

1292 003126 012700 000300 3$: MOV #300,R0 >PREPARE TO CLEAR THE FLOATING 

1293 003132 012701 000302 MOV #302,R1 >VECTOR AREA. 300-776 

1294 003136 010120 4$: MOV R1,(RO)+ >START PUTTING ‘'PC+#2 - HALT'' 

1295 003140 005021 CLR (Ri)+ "IN VECTOR AREA. 

1296 003142 022021 CMP (RO)+,(R1)+ :POP POINTERS 

1297 003144 022700 001000 CMP #1000,R0 ;ALL DONE?? 

1s 003150 001372 BNE 4$ :-BR IF NO. 

1300 > TEST START AND RESTART 

i eon ene 

1303 003152 012706 001200 .BEGIN: MOV @STACK,SP :SET UP STACK 

1304 003156 013746 000006 MOV a#6,-(SP) ;SAVE LOC 6 
| 
| 
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1305 003162 013746 000004 MOV aa4 ,-(SP) ;SAVE LOC 4 | 
1306 003166 005000 CLR RO “START AT 0 | 
1307 003170 012737 003234 00004 MOV #2$,a084 “SET UP FOR TIME OUT | 
1308 003176 005037 000006 CLR aa6 -TO AUTOSIZE MEMORY 
1309 003202 005720 6$: TST (RO)+ “CHECK ADDRESS IN RO 
1310 003204 022700 157776 CMP #157776,R0 -1S IT AT LEAST 28K 
1311 003210 001374 BNE 6$ :BR IF NO 
1312 003212 162700 007776 SUB #7776,R0 -SAVE 2K FOR MONITORS 
1313 003216 010037 001304 7$: MOV RO,MEMLIM “STORE MEMORY LIMIT 
1314 003222 012637 000004 MOV (SP)+,aa4 sRESTORE LOC 4 
1315 003226 012637 000006 MOV (SP)+,a#6 *RESTORE LOC 6 
1316 003232 000413 BR 10$ : CONTINUE 
1317 003234 022626 2$: CMP (SP)+,(SP)¢ “ADJUST STACK 
1318 003236 162700 000004 SUB 44,R0 :GET LAST GOOD ADDRESS 
1319 003242 162700 007776 SUB #7776,R0 “SAVE 2K FOR MONITORS 
1320 0032466 022700 030000 CMP #30000,R0 “1S IT 8k? 
1321 003252 001361 BNE 7$ :BR IF NO 
1322 003254 012700 037400 MOV #37400,R0 -1F BK DON'T SAVE 2k 
1323 003260 000756 BR 7$ 
1324 3262 012737 000340 177776 10S: MOV #340,PS “LOCK OUT INTERRUPTS 
1325 003270 032737 000004 001236 BIT #BIT2,STRTSW “CHECK FOR LOCK ON TEST 
1326 003276 001411 BEQ 1$ :BR IF NO LOCK DESIRED. 
1327 003300 104402 006043 TYPE »MLOCK “TYPE LOCK SELECTED. 
1328 003304 012737 000240 003612 MOV #NOP,TTST -ADJUST SCOPE ROUTINE. 
1329 003312 012737 000240 003614 MOV #NOP, TTST+#+2 -SET UP TO LOCK 
1330 003320 000406 BR 3$ :CONTINUE ALONG. 
1331 003322 013737 003730 003612 1$: MOV BRW,TTST “PREPARE NORMAL SCOPE ROUTINE 
1332 003330 013737 003732 003614 MOV BRXTTST+#2 “LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
1333 003336 012737 010206 001214 38: MOV #CYCLE.RETURN  :START AT "'CYCLE’’ FIND WHICH DEVICE TO TEST 
1334 003344 032737 000002 001236 4$: BIT #SWO1,STRTSW -1S TEST NO. SELECTED? 
1335 003352 001002 BNE 5$ -BR IF YES 
1336 003354 104402 005755 TYPE MR “TYPE R 
1337 003360 000177 175630 5$: JMP @RE TURN “START TESTING 





CZDME 
CZDME P11 


AAAI AI AI AI AIO 
WMAMAMAMAWAWAWIV VY 
OVik’Wrn—© 


SSTESES SES 


ao 


Shae 
DONA VFS WN Oo OO~n 


+p epepepepepepebeber. 5 


Se SSNS 3S533 


© Oo Ge 


So 


ae a at at at at at at et et I et 


wr A rt 
ee 
wm — 


MACY11 30A(1052) 
01-JUL-80 15:2 


003364 
0 


WIN NRMNN —— ~ 


AW EVOG FONOON 


50 


000005 


006 
001232 


004737 
010016 


001234 


001314 


000377 
001310 
000042 


010206 
010206 
002 
002 
002 


002 


007734 


ee ee ee wr rr wee 


O7-JUL-80 13:5 
.30 E 


175570 


001327 
001314 


001214 


EOP: 


SENDAD: 


RESTRT: 


XCSR: 


XVEC: 


XPASS: 


KERR: 


. SCOPE: 
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ND OF PASS ROUTINE 


sEND OF PASS 


; UNT 
;CHECK FOR EXIT TO ACT=-11 
;RESTART TEST 


;MAKE THE WORLD CLEAN AGAIN. 


CLR LSTERR CLEAR LAST ERROR PC 

CLRB ERRFLG CLEAR ERROR FLAG 

INC PASCNT UPDATE PASS COUNT 

MOV PASCNT,@DISPLAY ;DISPLAY PASS COUNT 

TYPE ,MEPASS : TYPE END PASS 

TYPE »MCSRX :; TYPE CSR 

CNVRT ,XCSR SHOW IT 

TYPE »MVECX : TYPE VECTOR 

CNVRT = ,XVEC SHOW IT 

TYPE ,MPASSX > TYPE PASSES 

CNVRT ,XPASS :SHOW IT 

TYPE ,MERRX - TYPE ERRORS 

CNVRT ,XERR :SHOW IT 

MOV MILK,RO -GET POINTER TO PASS COUNT 
MOV PASCNT, (RO) + STORE PASS COUNT FOK THIS DMC11 
MOV ERRCNT,(RO)*+ STORE ERROR COUNT FOR THIS DMC11 
DEC SAVNUM ARE ALL DEVICES TESTED? 
BNE RESTRT -BR IF NO. 

MOVB #377,QV.FLG SET THE QUICK VERIFY FLAG. 
MOV DMNUM, SAVNUM RESTORE THE COUNT 

MOV a#42,R1 CHECK FOR ACT-11 OR DDP 
BEQ RESTRT -I1F NOT, CONTINUE TESTING 
RESET :STOP THE SHOW--CLEAR THE WORLD 
JSR PC,(R1) 

NOP 

NOP 

NOP 

NOP 

MOV #CYCLE RETURN 

~ CYCLE 

BYTE 6,2 

DACSR 

BYTE 4,2 

BRAVE C 

BYTE 6,2 

PASCHT 

BYTE 6,2 

ERRCNT 


;SCOPE LOOP AND INTERATION HANDLER 


JSR PC,CKSWR 
MOV RO, (SP) 


;CKECK FOR SOFT SwWR 
;SAVE RO ON THE STACK 


er ew Se - -_ TF _ 


SEQ 0029 











ee ee ee A SA A SE TT 


gE 3 
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CZ7DME.P11 01-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0030 
1394 003604 032777 040000 175370 BIT #B1T14,aSwWR :""LOOP ON THIS TEST’? 
1395 003612 001407 TTST: BEQ 1$ ;BR IF NO. (CIF LOCK SWO1- THIS LOC =240) 
1396 003614 000437 BR 3$ :GOTO 3$ (IF LOCK SwO1- THIS LOC =240) 
1397 003616 005737 003734 TST DONE “WAS TKCSR DONE SET? 
1398 003622 001434 BEQ 3$ “BR IF NO (LOCKED ON TEST) 
1399 003624 005037 003734 CLR DONE “YES, CLEAR FLAG 
1400 3630 000415 BR 2$ :GO TO NEXT TEST 
1401 003632 032777 004000 175342 1$: BIT #SW11,aSWR peers ITERATION? (QUICK PASS) 
1402 003640 001011 BNE $ R IF YES 
1403 003642 105737 001327 TSTB QV.FLG * HAVE ory ++) aaa 
1404 003646 001406 BEQ 2$ ;BR IF QUICK PASS. 
1405 003650 005237 001224 INC LPCNT ; UPDATE ITERATION COUNTER 
1406 003654 023737 001224 001222 CMP LPCNT, 1COUNT :ARE ALL ITERATIONS DONE?? 
1407 003662 101414 BLOS 3$ “BR IF NOT YET 
1408 3664 105037 001325 2$: CLRB ERRFLG ;PREPARE FOR NEW TEST 
1409 003670 005037 001224 CLR LPCNT ;START ICOUNTER AT 0 
1410 003674 005037 001220 CLR LOCK 
1411 003700 012737 000020 001222 MOV #20, 1COUNT ;RESET ITERATIONS 
1412 003706 013737 001216 001214 MOV NEXT, RETURN :GET NEXT TEST 
1413 003714 011600 3$: MOV (SP),RO :POP RO OF F OF THE STACK 
1414 003716 022626 POP2SP >FAKE AN ‘'RTI"' 
1415 003720 013701 001404 MOV DMCSR,R1 “RI CONTAINS BASE DM ADDRESS 
1416 003724 000177 175264 JMP @RE TURN : G0 DO THE TEST 
1417 003730 001407 BRW: 1407 
1418 003732 000437 BRX 437 
eh 003734 000000 DONE 0 
1421 CHECK FOR FREEZE ON CURRENT DATA 
1056 ee 
4 
1424 003736 004737 007734 .SCOP1: JSR PC,CKSWR >CHECK FOR SOFT SwWR 
1425 003742 032777 001000 175232 BIT #SW09,aSWR :1S SwO9=1(SET)? 
1426 003750 001405 BEQ 1$ ;BR IF NOT SET. 
1427 003752 005737 001220 TST LOCK 
1428 003756 001402 BEQ 1 
1429 003760 013716 001220 MOV LOCK, (SP) >GOTO THE ADDRESS IN LOCK. 
vt 003764 000002 1$: RT] :GO BACK. 
1432 ; TELETYPE OUTPUT ROUTINE 
1433 a aa allies 
1434 
1435 003766 010546 TYPE: MOV R5,-(SP) ;SAVE RS ON THE STACK. 
1436 003770 017605 000002 MOV a2(SP),R5 :GET ADDRESS OF MESSAGE. 
1437 003774 062766 000002 000002 ADD #2,2(SP) :POP OVER ADDRESS. 
1438 004002 005737 010144 4$: TST SWFLG >SOFT SWR MESSAGE? 
1439 004 001004 BNE 1$ -IF YES TYPE IT OuT ae Same ss OF Swi2 
1440 004010 032777 010000 175164 BIT #SW12,aSWR ; INHIBIT ALL PRINT OUT 
1441 004016 001012 BNE 3$ “BR IF NO PRINT QUT VANTED (SWie=1) 
1442 004020 105715 1$: TSTB (R5) -1S NUMBER MINUS? (MSB=1(BIT7)) 
1443 004022 100002 BPL 2$ “BR 1—F NUMBER IS PLUS 
1444 004024 104402 005672 TYPE ,MCRLF ; TYPE A CR/LF! 
1445 0040 105777 175154 2$: TSTB aTPCsSR >TTY READY? 
1446 004034 100375 BPL 2% “BR IF NO. 
1447 004036 112577 175150 MOVB (R5)+,@TPDBR >PRINT CURRENT CHAR. 
1448 004042 001357 BNE 4$ >1F NOT ZERO KEEP PRINTING! 
1449 004044 012605 3$: MOV (SP)*,R5 “END OF OUTPUT. RESTORE RS‘ 


———— ee ee -_- - — =- =—=—- ore 
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CZDME P11 01-JUL-80 
1450 004046 000002 
1451 
1452 
1453 004050 010346 
1454 004052 910446 
1455 0046054 017637 
1456 004062 062766 
1457 004070 104402 
1458 004072 000000 
1459 004074 012704 
1460 004100 0127035 
14601 004104 105777 
1462 004110 100375 
1463 0046112 117714 
1464 004116 142714 
1465 004122 122427 
1466 004126 001417 
1467 004130 105777 
1468 004134 100375 
1469 004136 017777 
1470 004144 005503 
1471 004146 001556 
1472 004150 012604 
1473 004152 012603 
1474 004154 104402 
1475 004160 010546 
1476 004162 010446 
1477 004164 000741 
1478 004166 012604 
1479 004170 012603 
1480 004172 090002 
1481 
1482 
1485 
1484 
1485 004174 010546 
1486 004176 010446 
1487 004200 016605 
1488 004204 012537 
1489 004210 012537 
1490 004214 012537 
1491 004220 112537 
1492 004224 112557 
1493 0042350 010566 
1494 004234 005005 
1495 004236 012704 
1496 004242 122714 
1497 004246 001420 
1498 004250 121427 
1499 004254 002415 
15 004256 121427 
1501 004262 003012 
1502 004264 142714 
1503 004270 152405 
1504 004272 122714 
1505 004276 001406 





) 
15 


O7-JUL-80 13:5 
229 G 


000004 004072 
000002 000004 


007630 
000007 
175074 
175070 
000290 
000015 
175054 


175044 


005666 


000004 


000004 


007630 
000015 


000060 
000067 
000060 
000015 


175046 


. INSTR: 


INSTI: 


MSG: 


16: 


2$: 


. INSTE: 


INSTR2: 


PARAM: 


PARAM}: 


1$: 


3 PAGE 31 
ENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


MOV 
MOV 


:60 HOME 
R3,-(SP) >SAVE R3 ON STACK 
RG ,-(SP) »SAVE RG ON STACK 
a4(SP),.4SG 
2,4 (SP) 


#INBUF ,RG 
#7 ,R2 
aTKCSR 

1$ 


@TKDBR, (RG) 
#200, (RG) 
(RG)+,#15 
INSTR2 
aTPCSR 


2$ 
aTKDBR,aTPOBR 
R3 


1$ 
(SP)+*,R4 
(SP)+,R3 


;RESTORE RG 


(SP)+,R3 RESTORE R3 


;CONVERT ASCII STRING TO OCTAL 


R5,-(SP) 

RG ,-(SP) 
4(SP),R5 
(R5)*,LOLIM 
(R5)+,HILIM 
(R5)+*,DEVADR 
(R5)*,LOBITS 
(R5)+,ADRCNT 
R5.4(SP) 

R5 

#INBUF ,R4 
#15, (R4) 


SEQ 0051 


— ee - —_ — ee - — me ee ee — —_— —— - 
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C2DME P11 O1-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0032 
1506 004300 006305 ASL RS 
1507 004302 006305 ASL RS 
1508 004304 006305 ASL RS 
1509 004306 000760 Be 1$ 
1510 004310 104404 PARERR: INSTER 
1843 004312 000750 a PARAM] 
1513 :TEST TO SEE IF NUMBER IS WITHIN LIMITS 
1815 erate te cee een 
1516 004314 020537 004366 LIMITS: CMP RS,HILIM 
1517 004320 101373 BH] PARERR 
1518 004322 020537 004364 CMP RS,LOLIM 
1519 004326 103770 BLO PARERR 
1520 004330 133705 004372 BITB LOBITS,RS5 
eg) 004334 001365 BNE PARERR 
43 STORE NUMBER AT SPECIFIED ADDRESS 
1525 004336 013704 004370 MOV DEVADR,R4 
1526 004342 010524 1$: MOV RS, (R4)+ 
1527 004344 062705 000002 ADD #2,R5 
1528 004350 105337 004373 DECB ADRCNT 
1529 004354 001372 BNE 1$ 
1530 004356 012604 MOV (SP)+,R4 
1531 004360 012605 MOV (SP)+,R5 
1532 004362 000002 RTI 
1533 004364 000000 LOLIM: 0 
1534 004366 000000 HILIM: 0 
1535 004370 000000 DEVADR: 0 
1536 004372 000000 LOBITS: 0 
Ft 004373 ADRCNT=LOBITS+1 
1539 SAVE PC OF TEST THAT FAILED AND RO-R5 
1 ny TE a 600M gree aunt cams ms 7 acre 
1368 004374 016637 000004 .SAVO5: MOV 4(SP),SAVPC >SAVE R7 (PC) 
4 
fy -SAVE RO-RS5 
1546 004402 010537 001272 Sv05: MOV R5,SAVR5 :SAVE R5 
1547 00464 010437 001270 MOV R4,SAVRS >SAVE RG 
1548 004412 010337 001266 MOV R3,SAVR3 -SAVE R3 
1549 004416 010237 001264 MOV R2,SAVR2 > SAVE R2 
1550 004422 010137 001262 MOV R1,SAVR1 >SAVE R1 
1551 004426 010037 001260 MOV RO, SAVRO : SAVE RO 
1338 004432 000002 RTI > LEAVE 
sage RESTORE RO-RS 
1556 004434 013700 001260 .RESOS: MOV SAVRO,RO :RESTORE RO 
1557 004440 013701 001262 MOV SAVR1,R1 >RESTORE R1 
1558 004444 013702 001264 MOV SAVR2,R2 RESTORE R2 
1559 004450 013703 001266 MOV SAVR3,R3 *RESTORE R3 
1560 004454 013704 001270 MOV SAVR4G,R4G -RESTORE R4 
1561 004460 013705 001272 MOV SAVRS,RS ;RESTORE R5 


CZDME 


CZDME .P11 


1562 
1563 


PIAA VU 


eae aes se os oe se 
SSLFSARANLSSESEARFEATSSS 


WIAA 


1607 


38 


ee ed ed et ot 
OOOO OS 
tet ed ee et ed ed ed 
SOE Ww © 
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004464 


004466 


004712 


000002 


~~ 
Lat 
—~“ 


2 
é 
2 
3 
2 
1003 
2737 
3 
3 
é 
0 


Rote. 
oo°o°o— ty 


SSooso— 


ooo 
—_ — 
Oooo 


005672 


000012 


4 
000003 
177400 

4 


001416 


177770 
000060 


007672 
004712 
004713 
000040 
004715 


007672 
004710 


07-JUL-80 
9 


000012 


004712 
004714 


13:53 PAGE 
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33 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


. CONVR: 
.CNVRT: 


1$: 


2$: 


3$: 


4$: 


5$: 


6$: 


WRDCNT: 


CHRCNT: 


RTI 


; LEAVE 


;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


0 
0 


(R1)+,CHRCNT 
(R1)+,SPACNT 
a(R1)+,BINWRD 
#3, CHRCNT 


#177400, BINWRD 
BINWRD,R4 
CHRCNT,RS 
#TEMP. RO 

R4_R3 
#177770,k3 
#060,R3 
R3,(RO)+ 


RG 
R4 


R4 
R5 


3$ 
MMDATA,RS 
-(RO),(R3)+ 
CHRCNT 


4$ 
SPACNT 


6$ 

#040, (R3)+ 
SPACNT 

5$ 


(R35) 
»MDATA 
WROCNT 
1$ 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R1 
(SP)+,k0 


— ee ere we 


SEQ 0035 


oc 
~~ 


1661 


SEESETER 


a ae ee ee eS ee SS | 2 _) 
wnN—-oO oOo 


ooo Om 
SN NS 


MACY11 a 


01-JUL-80 1 


004714 


004716 


SRNANSES 


ae 
co 


004713 
000000 


011646 


000136 


004737 
032777 


000002 
000000 


177001 


001330 
000000 


007734 
010000 


174220 


000207 
020000 


001234 
001234 
001325 


000002 


177001 


001325 
005216 
005672 


006142 
006130 
005350 


07-JUL-80 
229 


ese 


13:55 PAGE 34 
GENERAL UTILITIES (TYPEOUT, 





..@ 
ERROR, SCOPE, ETC) 


Se eee eee es _ 


gent 


BINWRD: 


; TRAP DISPATCH SERVICE 

;ARGUMENT OF TRAP IS EXTRACTED 

;AND USED AS OFFSET TO OBTAIN POINTER 
>TO SELECTED SUBROUTINE 


-TRPSR: MOV (SP) ,-(SP) “GET PC OF RETURN 
SUB #2, (SP) -=PC OF TRAP 
MOV a(SP), (SP) “GET TRP 
TRPOK: ASL (SP) “MULTIPLY TRAP ARG BY 2 
BIC #177001,(SP) | :CLEAR UNWANTED BITS 
ADD #.TRPTAB, (SP) =POINTER TO SUBROUTINE ADDRESS 
MOV a(SP), (SP) “SUBROUTINE ADDRESS 
JMP a(sP)+ "GO TO SUBROUTINE 
-ERROR HANDLER 
JSR PC, CKSWR “CHECK FOR SOFT SwWR 
BIT #SW12,aSWR “BELL ON ERROR? 
BEQ XBX “BR IF NO BELL 
TSTB aTPCSR “TTY READY. 
BPL “DON'T WAIT IF TTY NOT READY. 
MOVB 1207 aTPDBR “PUSH A BELL AT THE TTY. 
KBX:  =—BIT sul, aswR “DELETE ERROR PRINT OUT? 
BNE “BR IF NO PRINT OUT WANTED. 
CMP (sb). * stern “WAS THIS ERROR FOUND LAST TIME? 
BEQ 1$ “BR IF YES 
MOV (SP) ,LSTERR “RECORD BEING HERE 
CLRB  —s ERRFLG “PREPARE HEADER 
1$: SAVOS “SAVE ALL PROC REGISTERS 
MOV (SP) RS “GET THE PC OF ERROR 
SUB #2.R5 “GET ADDRESS OF TRAP CALL 
MOV (R5) RG “GET HLT INSTRUCTION 
ASL R4 “MULT BY TWO 
ADD (RS) RG “DOUBLE IT 
ASL R4 “MULT AGAIN 
BIC #177001,R4 “CLEAR JUNK 
ADD # ERRTAB,R4 “GET POINTER 
MOV (R4)+,ERRMSG | :GET ERROR MESSAGE 
MOV (R4)+,DATAHD § :GET DATA HEADRER 
V (R4) ,DATABP “GET DATA TABLE 
TSTB — ERRFLG “TYPE HEADREER 
BEQ TYPMSG “BR IF YES 
TST DATABP “DOES DATA TABLE EXIST? 
BNE TYPDAT "BR IF YES. 
TYPMSG: TYPE —_,MCRLF 
TYPE "MCRLF 
TST LOCK 
BEQ 1$ 
TYPE MASTEK 
1$: TYPE "MISTN 
CNVRT “XTSTN “SHOW IT 


SEQ 0034 


LO EE nr el ee ee a Tm ee -_ = 


CZ 
C2 


DME 


MACY11 30A(1052 


DME.P11  01-JuL-80 
1674 005140 104402 
1675 005144 104411 
676 005150 104402 
1677 005154 112737 
1678 005162 005737 
1679 005166 001402 
1680 005170 104402 
1681 005172 000000 
1682 005174 
1683 005174 005737 
1684 005200 001402 
1685 005202 104402 
1686 005204 000000 
1687 005206 005737 
1688 005212 001402 
1689 005214 104410 
1690 005216 000000 
1691 005220 104407 
1692 005222 022737 
1693 005230 001403 
1694 005232 005777 
1695 005236 100005 
1696 005240 010046 
1697 005242 016600 
1698 005246 000000 
1699 005250 012600 
1700 005252 005237 
1701 005256 052777 
1702 005264 001007 
1703 005266 032777 
1704 005274 001411 
1705 005276 013737 
1706 005304 01270 
1707 005310 013701 
1708 005314 000177 
1709 005320 000002 
1710 005322 000001 
1711 005324 006 
1712 005326 001276 
1713 005330 000001 
1714 005332 003 
1715 005334 001226 
1716 
1717 
1718 
1719 
1720 005336 
1721 005336 012737 
1722 005344 000000 
1723 005346 000777 
1724 
1725 
1726 
1727 005350 
1728 005350 012737 
1729 005356 012706 


005172 


005204 


005216 


003522 
173744 


000002 
001232 
000400 


002000 
001216 


173674 


002 


002 


005350 


005336 


001200 


001325 


000042 


173716 
173706 
001214 


000024 


000024 


) QO7=-JUL-80 13:53 PAGE 35 
15:29 GENERAL 


ERRMSG: 


WRKO.FM: 


DATAHD: 0 


TYPDAT: 


DATABP: 0 


RESREG: 
HALTS: 


1$: 


EXITER: 


1$: 

2$: 
ERTABO: 
XTSTN: 


-PFAIL: 


RESTAR: 


.BYTE 


,MERRPC 
»ERTABO 


»MCRLF 


#-1 ,ERRFLG 
ERRMSG 
WRKO.FM 


DATAHD 
TYPDAT 


DATABP 
RESREG 


#SENDAD ,a#42 
1$ 


aSwWR 
EXITER 


2(SP),R9O 


ERRCNT 


a 
#SW10,aSWR 
2$ 


NEXT,RETURN 
@STACK,SP 
DMCSR,R1 
@RETURN 


6,2 


3,2 


; TYPE PC. 

;SHOW IT 

;GIVE A CR/LF 

;NO MORE HEADER UNLESS NO DATA TABLE. 
+. on AN ERROR MESSAGE? 

: NO. 


E 
ERROR MESSAGE 


“DATA HEADER? 
;BR IF NO 


: TYPE 

; DATA HEADER 
:DATA TABLE? 

:BR IF NO. 

> SHOW 


; DATA TABLE 
;RESTORE PROC REGISTERS 
;1F ACT=11 AUTOMATIC MODE, HALT!! 


;HALT ON ERROR? 

-BR IF NO HALT ON ERROR 
;SAVE RO 

— ERROR PC IN DATA LIGHTS 
; HAL 

:GET RO 

:UPDATE ERROR COUNT 

-GOTO TOP OF TEST? 


;BR IF YES 

;GOTO NEXT TEST? 

;BR IF NO 

;SET FOR NEXT TEST 
;RESET SP 

;SET UP R1 

;GOTO SPECIFIED TEST 
;RETURN 


TSTNO 
;ENTER HERE ON POWER FAILURE 


MOV 
HALT 
BR 


#RESTART,24 


;SET UP FOR POWER UP TRAP 
;HALT ON POWER DOWN NORMAL 


;PROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


MOV 
MOV 


#.PFAIL,24 
@STACK,SP 


;SET UP FOR POWER FAILURE 
;RESET THE STACK POINTER 


A A A — A me 


SEQ 0055 


_—<j]-- ——= —_———— a 


CZDME 


CZDME .P11 


745 


sl el cee el el el ee el el ec a a at at at et et = tt 
~ —~ 
fe) 


PF WVU" 
WU 

SMNOWUWVIWN WS awh 4 
mor 


SSSSS8SS SSSSSSSS5 


MACY11 ee 
01-JUL-80 15: 


013701 


013637 
062746 


001404 
001416 
001416 
005675 
001234 
173564 

002 


000020 


000020 


000100 
000300 


000002 


000100 


000003 
000007 


001416 


001416 
00000¢ 


07-JUL-80 
29 


173730 


173674 


173452 


173644 
173636 


13:53 PAGE 36 
GENERAL UTILITIES (TYPEOUT, 


-MSTCLR: 


~ROMCLK: 


1$: 


.DATACLK: 


1$: 


3$: 
TIMER: 


K 3 
ERROR, SCOPE, ETC) 


DMCSR,R1 :RESTORE R1 

TEMP “READY FOR TIMMER 

TEMP “PLUS ONE TO THE TIMER! 

04 "BR IF MORE TO GO 

SMPFAIL “TYPE THE MESSAGE 

PFTAB TELL WHAT vest TO RETURN TO. 

ERRFLG ; START CLEAN 

LSTERR oe 00 00 Oe 08 Oe be 

(R1) “CLEAR maint BITS 
START CLEAN UP OF DEVICE 

@RE TURN -START DOING THAT TEST AGAIN. 

#20,aDMP04 
*-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
>POKE CLOCK DELAY BIT 
NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 I[BUS*11 

#B114,aDMP04 -1S CLOCK BIT SET? 

1$ “BR IF NO 

WBIT6,a@DMCSRH  ;SET MASTER CLEAR 

#BIT6'BIT7, aDMCSRH 


Sa MASTER CLEAR AND RUN 
URN 


#BIT1,aDMCSRH ;SET ROMI 
a(SP)+,aDMPO6 ;LOAD INSTRUCTION IN SEL6 
#2,-(SP) ;ADJUST STACK 
#SW06 ,aSWR sHALT IF SWO6 =1 
1$ ;BR IF SWO6 =0 

;HALT BEFORE CLOCKING INSTRUCTION 
WBIT1!BITO,aDMCSRH ;CLOCK INSTRUCTION 
¥B1T2'BIT1'BITO,aDMCSRH ;CLEAR ROMO, ROMI, STEP 


a(SP)+, TEMP ;PUT TICK COUNT IN TEMP 


#2, -(SP) ;ADJUST STACK 

WBIT4,aDMCSRH SET STEP LU 

@DMCSR,@DMCSR =; WASTE TIME 

@BIT4,@DMCSRH ;CLEAR STEP LU 

TEMP ;DEC TICK COUNT 

1$ ;BR IF NOT DONE 
sRETURN 

a(SP)+, TEMP ;MOVE COUNT TO TEMP 

#2,-(SP) ;ADJUST STACK 


SEQ 0036 


ES —— ++ 


L 3 
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CZ0ME.P11 01-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0037 
005626 1$: : 
1787 005626 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
005630 021364 021364 :PORT4 IBUS* REG11 
1789 005632 032777 000002 173552 BIT #2, aDMP04 1S PGMA CLOCK BIT CLEAR? | 
4 apeees 001772 - BEQ 1$ -BR IF YES 
1792 005642 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
1793 005644 021364 021364 ;PORT4_IBUS* REG11 
1794 005646 032777 000002 173536 BIT #2, aDMPO4 1S PGMA CLOCK GIT SET? 
1795 005654 001372 BNE 2$ -BR IF YES 
1796 005656 005337 001416 DEC TEMP ;DEC COUNT 
1797 005662 001361 BNE 1$ :BR IF NOT DONE 
fa 005664 000002 RT] * RETURN 
1800 005666 020040 000077 7? Ff W 
(2) 005672 005015 000 12 =<15><12> 
(2) 005675 377 053520 020122 C12 «<377>/PWR FAILED. RESTART AT TEST / 
(2) 005733 377 047105 020104 12 <377>/END PASS CZDMF / 
(2) 005755 000122 12 <377>/R/ 
(2) 005760 047377 020117 042504 12 <377>/NO DEVICES PRESENT./ 
(2) 5 047111 12. <377>/INSUFFICIENT DATA!/ 
(2) 006031 377 042524 12 <377>/TEST PC-/ 
(2) 006043 377 047514 12 <377>/LOCK ON SELECTED TEST/ 
(2) 006072 051503 035122 IZ /CSR: / 
(2) 006100 042526 035103 IZ /VEC: / 
(2) 006106 040520 051523 12 /PASSES: / 
(2) 006117 105 051122 IZ /ERRORS: / 
(2) 006130 042524 052123 047040 12 /TEST NO: / 
(2) 006142 $2 12 /*/ 
(2) 006144 051777 052105 051440 12 <377>/SET SWITCH REG TO DMC11'S DESIRED ACTIVE./ 
(2) 006217 120 035103 000040 12 /PC: / 
(2) 006224 020212 020040 020040 I] <212>/ MAP OF DMC11 STATUS/ 
(2) 006263 020040 020040 1] <377>/ —«_—_— een eeecenene= / 
(2) 006322 020212 050040 020103 II] <212>/ PC CSR STATI STAT2 STAT3/ 
(2) 006374 026777 026455 026455 12) <377>/eeeene eee ee weer eee ene 0 eeee-- / 
(2) 50 044 053517 046440 12 <377>/HOW MANY DMC11'S TO BE TESTED?/ 
(2) 006510 04 051123 040440 12 <377>/CSR ADDRESS?/ 
(2) 006526 053377 041505 047524 12 <377>/VECTOR ADDRESS?/ 
(2) 006547 377 051102 050040 12 <377>/BR PRIORITY LEVEL? (4,5,6,7)?/ ; 
(2) 044777 020106 046504 12. <377>/1F DMC HAS CRAM (M8204) TYPE ‘'y'', IF CROM (M8200) TYPE ‘'N’’ ?/ 
(2) 006704 053777 044510 4103 12 <377>/WHICH LINE UNIT? IF NONE TYPE ‘'N’’, IF M8201 TYPE ‘‘l'’, IF M8202 TYP 
(2) 007016 051777 044527 041524 12 <377>/SWITCH PAC#1 (DDCMP LINE #)?/ 
(2) 007054 051777 044527 041524 12 <377>/SWITCH PAC#2 (BM873 BOOT ADD)?/ 
(2) 007114 0447 020123 044124 12 <377>/1S THE LOOP BACK CONNECTOR ON?/ 
(2) 007154 047377 020117 042504 12 <377>/NO DEVICES ARE SELECTED/ 
(2) 007205 377. 051412 051127 12 <377><12>/SwR= / 
(2) 007215 116 053505 020077 12 /NEW? / 
(2) 007223 377 042377 041515 12 <377><377>/DMC11 FOUND AT NON-STANDARD ADDRESS PC: / 
(2) 007277 377 054105 042520 12 <377>/EXPECTED FOUND/ 
(2) 007320 024040 046504 024503 IZ / (DMC) / 
(2) 9073 024040 046513 024503 12 / (KMC) / pod 
(2) 00734 ot FHM 041515 030461 12 <377>/DMC11-AR(REMOTE,LOW SPEED) OR DMC11-AL(LOCAL,HIGH SPEED) TYPE ''R 
(2) 007454 05 044510 044103 1] <200>/WHICH MODEM TYPE, TYPE ''D'' FOR DMC11-DA (RS232C) ,OR/ 
oH 007540 052200 050131 020105 12 <200>/TYPE ‘'F'’ FOR DMCII-FA (V.35) ? / 
(2) 007602 
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13:53 PAGE 38 
GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0038 
XSTATQ: 5§ 
BYTE 6,5 
TEMP 1 
-BYTE 6,3 
TEMP 2 
BYTE 6,3 
TEMPS 
BYTE 6,3 
TEMP4 
BYTE 6,2 
TEMPS 
~=VEN 
;sBUFFERS FOR INPUT-OUTPUT 
INBUF: 0 
.=.+40 
MDATA: 0 
.=. +40 
:ROUTINE USED TO CHANGE SOFTWARE SWITCH 
sREGISTER USING THE CONSOLE TERMINAL 
001202 CKSWR: CMP #SWREG, SWR :IS THE SOFT SWR BEING USED? 
BNE CKSWRS ;BR IF NO 
TSTB aTKCSR IS DONE SET? 
BPL 2$ :GO ON IF NOT SET 
003734 MOV #-1,D0ONE : IF DONE SET, SET FLAG 
171220 2$: CMP #7,aTKDBR -WAS CTRL G TYPED? (7 BIT ASCII) 
BEQ 1$ :BR IF YES 
171210 CMP #207,aTKDBR sWAS CTRL G TYPED? (8 BIT ASCII) 
BNE CKSWRS ;BR IF NO 
1$: MOV R2,-(SP) :STORE R2 
MOV R3,-(SP) :STORE R3 
MOV R4,-(SP) sSTORE R4 
010144 MOV #-1,SWFLG sSET SOFT TYPE OUT FLAG 
CKSWR1: CLR R2 sCLEAR NEW SWR CONTENTS 
MOV #-1,R4 ;SET FLAG TO ALL ONES 
TYPE ,SWMES >TYPE ‘'SWR= °' 
CKSWR2: CNVRT ;TYPE OUT PRESENT CONTENTS 
SOF TSW sOF SOFT SWITCH REGISTER 
CKSWR3: TYPE , SWMES1 >TYPE ‘NEW? °° 
CKSWR4: JSR PC, INCHAR :GET RESPONSE 
CMP #15,R3 “WAS IT A CR? 
BEQ a :BR IF YES 
CMP #12,R3 s;WAS IT A LF? 
BEQ 4$ -BR IF YES 
CMP #25,R5 sWAS IT CTRL U? 
BEQ CKSWR1 :BR IF YESCSTART OVER) 
CMP #7,R3 :1F CNTL G GET NEXT CHAR 
BEQ CKSWRS 
CLR R4 -1T MUST BE A DIGIT SO CLR FLAG 
BIC #177770,R3 sONLY O-7 ARE LEGAL SO MASK OFF BITS 
ASL Re >SHIFT R2 3 TIMES 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


4$: 
5$: 


6$: 


CKSWR5: 


SWFLG: 


INCHAR: 


SCF TSW: 


Re 
Re 
R3,R2 


CKSWR4 
#.START,6(SP) 
R4 


;ADD LAST DIGIT 

:GET NEXT CHARACTER 

;LF WAS TYPED SO GO TO START 
¢1S FLAG CLEAR? 

:I1F NOT DON'T CHANGE SOFT SwWR 


R2,aSWR “IF YES THEN WRITE NEW CONTENTS TO SOFT SwR 
SWFLG “CLEAR TYPEOUT FLAG 
(SP) +, RG "RESTORE R4 
(SP)+_R3 “RESTORE R3 

(SP) +R? “RESTORE R2 

PC "RETURN 

aTKCSR 

ATKDBR,R3 

aTPCSR 

R3,aTPDBR 

#BIT7,R3 

Pc 

6,2 


SEQ 0039 
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CZ0ME MACY11 30A(1052) O7-JUL-80 13:53 PAGE 40 
CZDME.P11 01-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) —  §EQ@ 0040 
1884 
1885 : 
1886 sROUTINE USED TO ‘‘CYCLE'’ THROUGH UP TO 16 DMC11°S 
1887 -THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
1888 sAND RUNS THE SPECIFIED DMC11°S. THIS ROUTINE *MUST®* | 
1889 :BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
1890 ;SETUP NECESSARY. 
1892 | 
1893 010206 005737 001306 CYCLE: TST DMACTY -ARE ANY DMC11'°S TO RE TESTFD? 
1894 010212 001004 BNE 1$ ;BR IF OK. 
1895 010214 104402 007154 TYPE ,NOACT >NO DMC11'S SELECTED''! 
1896 010220 000 HALT :STOP THE SHOW. 
1897 010222 000776 BR -2 *DISQUALIFY CONT. SW. 
1898 010224 000241 1$: CLC :CLEAR PROC. CARRY BIT. 
1899 010226 006137 001316 ROL RUN : UPDATE POINTER 
1900 010232 5537 001316 ADC RUN -CATCH CARRY FROM RUN 
1901 010236 062737 000004 001322 ADD #4 MILK sUPDATE POINTER 
1902 010244 062737 000010 001320 ADD #10, CREAM :UPDATE ADDRESS POINTER. 
1903 010252 022737 001700 001320 CMP #DM.MAP+200, CREAM 
1904 010260 001006 BNE 2$ :KEEP GOING; NOT ALL TESTED FOR. 
1905 010262 012737 001500 001320 MOV WDOM.MAP,CREAM ;RESET ADDRESS POINTER. 
1906 010270 012737 001702 001322 MOV #CNT.MAP MILK ;RESET PASS COUNT POINTER 
1907 010276 033737 001316 001306 2%: BIT RUN, DMACTV :1S THIS ONE ACTIVE? 
1908 010304 001747 BEQ 1$ ;BR IF NO 
1909 010306 013700 001320 MOV CREAM,RO :GET ADDRESS POINTER 
1910 010312 013702 001322 MOV MILK,R2 :GET PASS COUNT POINTER 
1911 01031 012037 001404 MOV (RO)+,DMCSR sLOAD SYSTEM CTRL. REG 
1912 010322 011037 001374 MOV (RO) ,OMRVEC :LOAD VECTOR 
1913 010326 042737 177000 001374 BIC #177000, DMRVEC :CLEAR UNWANTED BITS 
1914 010334 012037 001366 MOV (RO)+,STATI sLOAD STAT1 
1915 010340 012037 001370 MOV (RO)+,STAT2 sLOAD STAT2 
1916 010344 012037 001372 MOV (RO)+,STATS sLOAD STAT3 
1917 010350 012237 001230 MOV (R2)+,PASCNT sLOAD PASS COUNT 
1918 010354 012237 001232 MOV (R2)+,ERRCNT :LOAD ERROR COUNT 
1919 010360 012700 000002 MOV #2,R0 ;SAVE CORE THIS WAY! 
1920 010364 013737 001404 001406 MOV DACSR,DMCSRH : 
1921 010372 005237 001406 INC DMCSRH : 
1922 010376 013737 001406 001410 MOV DMCSRH,DMCTL 
1923 010404 005237 001410 INC DMCTL 
1924 010410 013737 001410 001412 MOV DACTL,DMPO4 
1925 010416 060037 001412 ADD RO, DMPO4 
1926 010422 013737 001412 001414 MOV DMPO4 , DMP06 
Hp 010430 060037 001414 ADD RO, DMPO06 
1929 010434 013737 001374 001376 MOV DMRVEC,OMRLVL ;PTY LVL 
1930 010442 060037 001376 ADD RO, DMRLVL ; 
1931 010446 013737 001376 001400 MOV DMRLVL ,DMATVEC ;TX VEC 
1932 010454 060037 001400 ADD RO, DMATVEC ; 
1933 010460 013737 001400 001402 MOV DMTVEC,OMTILVL ;TX LVL 
bt 010466 060037 001402 ADD RO,DMTLVL 
1936 010472 032737 000002 001236 BIT #SWO1,STRTSW >1S TEST NO. SELECTED | 
1937 010500 001450 BEQ 7$ :BR IF NO | 
1938 010502 4$: | 
1939 010502 005737 000042 TST ae42 :RUNNING IN AUTO MODE? 
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13:53 PAGE 4 
GENERAL UT 


~BYTE 
-BYTE 


cs: 


6$: 


7$: 
8$: 


AUTO.SIZE: 
Fi 


CSRMAP : 
1$: 


BNE 
TYPE 
INSTR 
MTSTN 
per 


ere eee 


C 4 


: 
ILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


7$ -BR IF YES 
,MCRLF 
;GET TEST NO. 
#TST1,R0 
(PC)+, (RO) :CMP FIRST WORD TO 12737 
(PC)+,a(PC)+ 
6$ :BR IF NOT SAME 
TSTNO,2(RO) :DOES TSTNO MATCH? 
6$ ;BR IF NO 
#TSTNO,4(RO) :1S LAST WORD OK? 
6$ ;BR IF NO 
RO,RETURN ;1T IS A LEGAL TEST SO DO IT 


»MR 
#SWO1,STRTSW 
8$ 


(RO) + :POP RO 

RO, #TLAST+10 >AT END YET? 

5$ ;BR IF NO 

,MQM :YES ILLEGAL TEST NO. 

4$ > TRY AGAIN 

#TST1,RETURN ;PREPARE RETURN ADDRESS 
DMCSR,R1 -R1 = BASE DMC11 ADDRESS 


RETURN “GO START TESTING. 


;ROUTINE USED TO ‘AUTO SIZE*’ THE DMC11 
;CSR AND VECTOR. 


;NOTE: 


THE CSR MAY BE ANY WHERE IN THE FLOATING 
ADDRESS RANGE (160000: 164000) 

AND THE VECTOR MAY BE ANY WHERE IN THE 
FLOATING VECTOR RANGE (300:770) 


; INSURE A BUS INIT. 


#OM.MAP,R2 ;LOAD MAP POINTER. 
(R2)+ ;ZERO ENTIRE MAP 
#0M.END,R2 ;ALL DONE? 

1$ ;BR IF NO 


>SET OCTAL NUMBER OF DMC11°S TO 0 
:R2 POINTS TO DMC MAP 

sCLEAR ACTIVE 

sQUESTIONS? 

;BR IF YES 

:1F NO SKIP QUESTIONS 

>START WITH 1 


DMNUM 

WDM. MAP ,R2 
DMACTV 

ot wehechihehen 
+ 


7$ 
#1, TEMPS 


SEQ 0041 
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001252 001310 
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000027 
000011 


170777 


012474 
000131 


000116 


10$: 


50$: 
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3 PAGE 42 
ENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


PARAM 


TEMPS ,DMNUM 
»MCRLF 


TEMPS 


TEMPG,(R2)+ 


TEMP4, (R2) 
PC,INTTY 
#24 ,R3 

50$ 
#27,R5 

50$ 

#11,R4 

R3 

R4 

74 
#170777,R3 


R3,(R2) 
8$ 


10$ 
PC INTTY 
#131,R3 
9% 
#116,R3 
40$ 


8% 


D 4 


;DMNUM = HOW MANY 


; TYPE WHICH DMC IS BEING DONE 
;TEMPS IS WHICH DMC 


;STORE CSR IN MAP 


;STORE VECTUR IN MAP 


;ASK WHAT BR LEVEL 
;GET RESPONSE 


“BR IF LESS THAN 4 


:BR IF GREATER THAN 7 

:R4 = NUMBER OF SHIFTS 
>SHIFT R3 LEFT 

:DEC SHIFT COUNT 

:BR IF NOT DONE 

:BIC UNWANTED BITS 

;PUT BR LEVEL IN STATUS MAP 
: CONTINUE 


;RESPONSE IS OUT OF LIMITS 
; TRY AGAIN 


-DOES DMC HAVE CRAM? 
:GET REPLY 


;YES 

NO 

;NOT A Y OR N 
: TYPE — 
>ASK AGAIN 


= ee — ee ae ee 


SEQ 0042 
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GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


40$: 


41$: 


9$: 
14$: 


32$: 


31$: 
30$: 


17$: 


440$: 


442%: 


;DMC11-AR OR DMC11=-AL? 


PC,INTTY ;GET RESPONSE 
#122,R3 “1S IT R 
16$ :BR IF REMOTE 
Wl1G,R3 133 ay & 
41$ -BR IF LOCAL 
40$ : TRY AGAIN 
#BIT1,4(R2) >SE’T BIT! IN STAT3 
16% ; CONTINUE 
#B11T15,(R2) >SET BIT 15 IF CRAM 

>ASK WHICH LINE UNIT 
PC,INTTY -GET REPLY 
#21,R3 “ue ie 
30$ 
#22,R3 ie 2 
31$ 
#116,R3 ae 
32$ 

:IF NOT A 1,2 OR N TYPE °'?"' 
16% ; TRY AGIAN 
#BIT12,(R2)+ >SET BIT 12 IN STAT2 IF NO LU 
1 fill aaa -POP OVER STAT2 AND STAT3 
#BIT13,(R2) -SET BIT 13 IN STAT2 IF M8202 

sASK IF LOOP-BACK IS ON 
PC ,INTTY ;GET REPLY 
#131,R3 2% 
17$ 
#116,R3 :N 
18% 

>iF NOT Y OR N TYPE ‘'?"' 
30$ > TRY AGAIN 
WBIT14,(R2)+ : TURNAROUND IS CONNECTED 
#B11T13,-2(R2) : IS IT A M8202? 
19$ ; YES, IGNOR. 

; ASK QUESTION 
; ABOUT MODEM TTYPE 

PC,INTTY : GET ANSWER. 
#'D,RS ; IS IT DMC11-DA? 
442% ; NO. 
#BIT2,2¢(R2) ; YES INDICATE IT IN STATS 
441$ 
we RS -1S [IT A DMCII-FA (¥.55)? 


SEQ 0043 
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CZDME P14 01-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0044 


$10 011350 001403 BEQ 443% ; YES-TAKE CARE OF IT. 

2110 011352 104402 TYPE : NO ASK OPERATER WHATS GOING ON. 
2111 011354 005666 MQM 

$118 011356 000757 Qe 440% : REASK QUESTION 

sis 011360 052762 000004 Q00002 443%: #£BIS WBIT2,2(R2) : YES v.35, RECORD IN STAT3 
2116 011566 441$: ; END DECISION POINT. 

2117 011366 000402 He 19$ 

2118 011370 042722 040000 18$: BIC WBIT14,(R2)¢ -NO TURNAROUND 

2119 011374 19$- 

2120 011374 104403 INSTR 

2121 011376 007016 LINE 

2122 011400 104405 PARAM 

2123 011402 000000 

2124 011404 000377 377 

2125 011406 001254 TEMPS 

2126 011410 000 .BYTE O 

2127 011411 001 .BYTE 1 

2128 011412 113722 001254 MOVB TEMPS, (R2)* -STORE SWITCH PAC IN MAP 
2129 011416 104403 INSTR 

2130 011420 007054 M 

2131 011422 104405 PARAM 

2132 011424 000000 

2133 011426 000377 77 

2134 011430 001254 TEMPS 

2135 SR 000 .BYTE QO 

2136 01143 001 BYTE 1 

2137 011434 113722 001254 MOVB TEMP4, (R2)* -STORE SWITCH PAC IN MAP 
2138 011440 005722 TST (R2)¢ :POP OVER STAT3 

2139 011442 005337 001252 33$: DEC TEMPS >DEC DMC COUNT 

2140 011446 001402 BEQ 34% :BR IF DONE 

2141 011450 000137 010740 JMP 12% : JUMP IF NOT 

2142 011454 000137 012110 343: JMP 13$ ; CONTINUE 

2143 011460 012701 160000 7$: MOV #160000,R1 -SET FOR FIRST ADDRESS TO BE TESTED 
2144 011464 012737 012202 000004 MOV #6%,a84 -SE’ FOR NON-EXISTANT DEVICE TIME OUT 
2145 011472 005011 2%: CLR (R1) >CLEAR SELO 

2146 011474 005711 TST (R1) : IF DMC11 DMCSR S/B 0 

2147 011476 001172 BNE 3$ -1F NO DEV ; TRAP TO 4. IF NO BIT 8 THEN NO DMC11 
2148 011500 005061 000006 CLR 6(R1) -CLEAR SEL6 

2149 011504 005761 000006 TST 6(R1) -1F DMC11 THEN DMRIC S/B =0! 
2150 011510 001165 BNE 3$ :BR IF NOT DMC11 

2151 011512 012711 002000 MOV #B1T10,(R1) -SET ROMO 

2152 011516 005061 000004 CLR 4(R1) >CLEAR SEL4 

2153 011522 012761 125252 000006 MOV #125252,6(R1)  ;WRITE THIS TO SEL6 

2154 011530 052711 020000 BIS #B1T13,(R1) WRITE IT! 

2155 011534 022761 125252 000004 CMP #125252,4(R1)  :WAS IT WRITTEN? 

2156 011542 001004 BNE 21% :1—F NO IT IS NOT CRAM 

2157 011544 052762 100000 000002 BIS #B1T15,2¢R2) -SET BIT15 IF CRAM 

2158 011552 000431 He 22% 

2159 011554 012711 001000 213: MOV #BIT9,(R1) :SET ROM] 

2160 011560 012761 100430 000006 MOV #1004 %0,6(R1) :PUT INSTRUCTION IN SEL6 
2161 011566 012711 001400 MOV @BITO'BITB.(R1) ;CLOCK INSTRUCTION (MICRO PROC PC TO Q) 
2162 011572 012711 002000 MOV #B1T10,(R1) :SET ROMO 

2163 011576 022761 016472 000006 CMP #016472,6(R1) >1S IT LOCAL CROM? 
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DME .P11 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0045 
2164 011604 001411 BEQ 23$ -BR IF YES 

2165 011606 022761 016461 000006 CMP #016461,6(R1)  :1S IT REMOTE CROM? 

2166 011614 001410 BEOQ 22$ “BR IF YES 

2167 011616 022761 177777 000006 CMP #-1,6(R1) “NO CROM? 

2168 011624 001404 REQ 22$ “BR IF YES 

2169 011626 000516 BR “NOT A DMC 

2170 011630 052762 000002 000006 23%: BIS #BIT1,6(R2) “SET BIT 1 IN STAT3 

2171 -AT THIS POINT IT 1S ASSUMED THAT R1 HOLDS A DMC11 CSR ADDRESS. 
2172 011636 010122 52$: = MOV R1,(R2)¢ “STORE CSR IN CORE TABLE. 

2173 011640 012711 001000 15$: MOV #BiT9, (R1) “CLEAR LINE UNIT LOOP 

2174 011644 005061 000004 CLR 4(R1) “CLEAR PORTS 

2175 011650 012761 122113 000006 MOV #122113,6(R1) :LOAD INSTRUCTION (CLR DTR) 
2176 011656 052711 000400 BIS #B1TB,(R1) “CLOCK INSTRUCTION 

2177 011662 012761 021264 000006 MOV #021264,6(R1)  =:LOAD INSTRUCTION 

2178 011670 052711 000400 BIS #B1T8,(R1) “CLOCK INSTRUCTION 

2179 011674 122761 000377 000004 CMPB ss #3.77,4(R1) “1S IT ALL ONES? 

2180 011702 001003 BNE +10 “BR IF NO 

2181 011704 052712 010000 BIS #B1T12, (R2) “IF YES, NO LINE UNIT, SET STATUS BIT 
2182 011710 000436 BR 20$ 

2183 011712 032761 000002 000004 BIT #BIT1,4(R1) :1S SWITCH A ONE? 

2184 011720 001403 BEQ +10 “BR IF M8201 

2185 011722 052712 060000 BIS #BITI3'BIT14,(R2) :MB202 ASSUME CONNECTOR 

2186 011726 000427 BR 20$ - CONNECTOR ON) 

2187 011730 032761 000010 000004 BIT #B1T3,4(R1) "1S MRDY SET 

2188 011736 001023 BNE 20$ “BR IF M8201 NO CONNECTOR (ON LINE) 
2189 011740 012761 000100 000004 MOV #BIT6,4(R1) “LOAD PORT 

2190 011746 012761 122113 000006 MOV #122113,6(R1) | :LOAD INSTRUCTION 

2191 011754 052711 000400 BIS #B1TB, (R1) “CLOCK INSTRUCTION(SET DTR) 
2192 011760 012761 021264 000006 MOV #021264,6(R1)  =LOAD INSTRUCTION 

2193 011766 052711 000400 BIS #BITB, (R1) “CLOCK INSTRUCTION(READ MODEM REG) 
2194 011772 032761 000010 000004 BIT #B1T3,4(R1) "1S MRDY SET NOW? 

2195 012 001402 BEQ 20$ “BR IF NO CONNECTOR 

2196 012002 052712 040000 BIS WBIT14, (R2) "SET STATUS BIT FOR CONNECTOR 
2197 012006 005722 208: TST (R2)+ :POP POINTER 

2198 012010 012761 021324 000006 MOV #021324,.6(R1) | :PUT INSTRUCTION IN PORT6 

2199 012016 012711 001400 MOV #BITO'BITB,(R1) :PORT4 LU 15 

2200 012022 156122 000004 BISB 4(R1),(R2)+ “STORE DDCMP LINE # IN TABLE 
2201 012026 012761 021344 000006 MOV #021344,6(R1) | :PORT6_INSTRUCTION 

2202 012034 012711 001400 MOV #BITB'BIT9,(R1) :CLOCK INSTR. 

2203 012040 156122 000004 BISB 4 (R1),(R2)4 “STORE BM873 ADD IN TABLE 

2204 012044 005722 TST (R2)+ “POP OVER STAT3 

2205 012046 005011 CLR (R1) “CLEAR ROM] 

2206 012050 005237 001310 INC DMNUM “UPDATE DEVICE COUNTER 

2207 012054 022737 000020 001310 CMP #20, DMNUM “ARE MAX. NO. OF DEV FOUND? 
2208 012062 001412 BEQ 13$ “YES DON'T LOOK FOR ANY MORE. 
2209 012064 005011 3g: CLR (R1) “CLEAR BIT 10 

2210 012066 005061 000006 CLR 6(R1) “CLEAR SEL 6 

2211 012072 062701 000010 14$: ADD #10,R1 “UPDATE CSR POINTER ADDRESS 
2212 012076 022701 164000 CMP #164000,R1 

2213 012102 001402 BEQ 13$ “BR IF DONE 

2214 012104 000137 011472 JMP 2$ - JUMP IF NOT 

2215 012110 005037 001306 13$: CLR DMACTV 

2216 0121146 005737 001310 TST DMNUM “WERE ANY DMC11'S FOUND AT ALL? 
2217. 012120 001423 BEQ 5$ “ERROR AUTO SIZER FOUND NO DMC11'S IN THIS SYS. 
2218 012122 013701 001310 MOV DMNUM,R1 

2219 012126 010137 001314 MOV R1, SAVNUM “SAVE NUMBER OF DEVICES 


on 


mm eee eae ee 


H 4 










DME MACY11 S0AC1952) 07-JUL-80 13:53 PAGE 46 

DME .P11 01-JUL-80 15:29 GENERAL UTILITIES (TYPEOUT, ERROR, SCOPE, ETC) SEQ 0046 
2220 012132 000241 4$: CLC 

2221 012134 006137 001306 ROL DMACTV >GENERATE ACTIVE REGISTER OF DEVICES. 
2222 012140 005237 001306 INC DMACTV -SET THE BIT 

2223 012144 005301 DEC R1 

2224 012146 001371 BNE 4$ -BR IF MORE TO GENERATE 

2225 012150 012737 000006 000004 MOV #6 ,a44 RESTORE TRAP VECTOR 

2226 «6012156 013737 001306 001312 MOV DMACTV,SAVACT ;SAVE ACTIVE REGISTER 

2227 012164 000137 012216 JMP VECMAP :60 FING THE VECTOR NOW. 

2228 012170 104402 005760 5$: TYPE ,MERR2 “NOTIFY OPR THAT NO DMC11°S FOUND. 
2229 012174 005000 CLR RO : MAKE DATA LIGHTS ZERO 

2230 012176 000000 HALT >STOP THE SHOW 

2231 012200 000776 BR .72 “DISABLE CONT. SW. 

2232 012202 012716 012072 A$: MOV #14$, (SP) “ENTERED BY NON-EXISTANT TIME-OUT. 
sth 012206 000002 RT] -RETURN TO MAINSTREAM 

2235 012210 000001 WHICH: 1 

2236 012212 002 BYTE 2,2 

$$ée 012214 001256 TEMPS 

2239 012216 032737 000001 001236 VECMAP: BIT #SWOO,STRTSW 

2240 012224 001114 BNE 

2241 012226 012737 000340 000022 MOV #340 ,a#22 :SET IOT TRAP PRIO TU 7 

2242 012234 012737 012410 000020 MOV #4$,a#20 :SET IOT TRAP VECTOR 

2243 012242 012702 001500 MOV #DM.MAP,R2 -SET SOFTWARE POINTER 

2244 012246 012700 000300 MOV #300,R0 : FLOATING WE CTORS START HERE. 
2245 012252 012701 000302 MOV #302,R1 “PC OF IOT INSTR 

2246 012256 010120 1$: MOV R1,(RO)+ START FILLING VECTOR AREA 
2247 012260 012721 000004 MOV #4,(R1)+ sWITH .+#2; IOT 

2248 012264 022021 CMP CRO)+, (R1)+ -ADD 2 TO RO +R1 

2249 012266 020127 001000 CMP R1 #1000 

2250 012272 101771 BLOS 1$ -BR IF MORE TO FILL 

2251 012274 013737 001306 001246 MOV DMACTV,TEMP1 :STORE TEMPORALLY 

2252 012302 006037 001246 2$: ROR TEMP1 : BRING oH A BIT 

2253 012306 103063 BCC 5$ :BR IF ALL DONE 

2254 012310 012704 000012 MOV #12,R4 R4 IS INDEX REGISTER 

2255 012314 016437 012460 177776 MOV BRLVL(R4),PS “SET PS TO 7 

2256 012322 011201 MOV (R2),R1 

2257 012324 012761 000200 000004 MOV #200,4(R1) 

2258 012332 012711 001000 MOV #BITS,(R 1) SET ROMI 

2259 012336 012761 121111 000006 MOV #121111,6(R1 >PUT INSTRUCTION IN PORT6 
2260 012344 012711 001400 MOV #BIT9'BIT8, ( RY) >FORCE AN INTERRUPT 

2261 012350 105200 7$: INCB RO > STALL 

2262 012352 001376 BNE .72 “FOR TIME TO INTERUPT 

2263 012354 162704 000002 SUB #2,R4 -GET NEXT LOWEST PS LEVEL 
2264 012360 001404 BEQ 6$ -BR IF R4 = 0 

2265 012362 016437 012460 177776 MOV BRLVL(R4),PS :MOVE NEXT Lower LEVEL IN PS 
2266 012370 000767 ak 7 :BR TO DELA 

2267 012372 052762 005300 000002 6%: BIS #5300,2(R2) :NO INTERUPT ASSUME 300 AT LEVEL 5 AND FIX DMC11 LATER 
2268 012400 005011 3$: CLR (R1) ;CLEAR ROMI 

2269 012402 062702 000010 ADD #10,R2 “POP SOFTWARE POINTER 

2270 012406 000735 BR 2$ >KEEP GOING 

2271 012410 051662 000002 4$: BIS (SP), 2(R2) “GET VECTOR ADDRESS 

2272 012414 042762 000007 000002 BIC #7,2(R2) -CLEAR JUNK 

2273 012422 016405 012462 MOV BRLVL+2(R4),R5 :GET BR LEVEL OF DMC11 

2274 012426 006305 ASL R5 >SHIFT LEVEL 4 PLACES 

2275 012430 006305 ASL Re -T0 THE LEFT FOR THE 
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GENERAL U 


5$: 
BPLVL: 


INTTY: 


TST1: 


R5 


R5 
#170777,R5 


R5,2(R2) 
(SP)+,(SP)+¢ 
#3$, (SP) 


PC 


;LEVEL 
;LEVEL 


aTKCSR 
4 


aTKDBR,R35 


aTPCSR 


R3 
PC 


NOW OO 


-@TPDBR 
WBIT7'BITS,R3 


Sc rrr ee ks te 


I 


4 


47 
TILITIES (TYPEOUT, ERROR, SCOPE, ETC) 


;STATUS TABLE 


;CLEAR UNWANTED BITS 

;PUT BR LEVEL IN STATUS TABLE 
;POP IOT JUNK OFF STACK 

;SET FOR RETURN 


;ALL DONE WITH ‘AUTO SIZING’ 


;WAIT FOR DONE 


>PUT CHAR IN R3 
sWAIT UNTIL PRINTER IS READY 


;ECHO CHAR 
;MASK OFF LOWER CASE 
sRETURN 


seeeeeeetetetrrereretenerene TEST |] teeeataeanerenereeeerenenne 
;*OUT CONTROL REGISTER READ/ONLY TEST 

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 


Sra eeeaeeeeeeeeeterererekenaneneeatentinneeeearenaneeeeenerenest 


ROMCLK 
021004'< 
MO 


#1, TSTNO 


#TST2,NEXT 


@DMCSR 
#11,R2 


20*11> 


#54, 
#20,R5 
R5,R4 
1$ 


4(R1),R4 
R4 


-R1 CONTAINS BASE DMC11 ADDRESS 
-CLEAR SELO 

:SAVE R2 FOR TYPEOUT 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LINE UNIT REG 11 

:PUT ''FOUND'’ IN R4 

:CLEAR UNKNOWN BITS 

>PUT “‘EXPECTED'' IN RS 

:1S OUT READY SET? 

;BR IF YES 

sERROR IN LU 11 

-SCOPE THIS TEST 


seeeeeeetereteererertererene TEST 2 seeaeaeneeereterenterertere 


;*IN CONTROL REGISTER READ/ONLY TEST 
;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 


A ae —_—_— ~-— 


SEQ 0047 


a mm rr ee ne . —- eee 


DME 
DME 
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012646 


012650 
012656 
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012750 
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001226 
216 


012650 001 


000012 


000004 
000017 


000003 
012722 


000013 


000004 
000213 
000100 


000004 
013024 


001226 
001216 


001226 
001216 
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TST3: 


TST4: 
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PAGE 48 
LINE UNIT READ/ONLY TESTS 


;*BITS ARE IN THE CORRECT STATE 


Ss :eeeaketererererentererereenenenanenenaneeneageeeneerenereeeese 


; TEST 2 
MOV #2,TSTNO 
MOV #TST3,NEXT 
-R1 CONTAINS BASE DMC11 ADDRESS 
MOV #12,R2 SAVE R2 FOR TYPEOUT 
ROMCLK *-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004!<20*12> :PORT4 LINE UNIT REG 12 
MOV 4(R1),R4 :PUT ‘FOUND’ IN RG 
BIC #17,R4 CLEAR UNKNOWN BITS 
CLR R5 :PUT "‘EXPECTED'' IN RS 
CMPB RS,RG ARE ALL BITS CLEARED? 
BEQ 1$ -BR IF YES 
HLT 2 ;ERROR IN LU 12 
SCOPE SCOPE THIS TEST 


seeeeeeetereneerereneeeeeree TEST 5 reeennenaeeerererererererer 
;*MODEM CONTROL REGISTER READ/ONLY TEST 

;*DO A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

>*BITS ARE IN THE CORRECT STATE 


pr eeeaeeeeeeerereererereranenakeneeneananeaeeeaneeeerareneeeenese 


; TEST 3 
MOV #3, TSTNO 
MOV #TSTG,NEXT 
:R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #13,R2 :SAVE R2 FOR TYPEOUT 
ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004'<20*13> :PORT4 LINE UNIT REG 13 
MOV 4(R1),R4 :PUT ‘‘FOUND'' IN R4 
BIC #213,R4 CLEAR UNKNOWN BITS 
MOV #100,R5 PUT "‘EXPECTED'' IN RS 
CMPB R5,R4 ARE RING, DTR, AND MODEM READY SET? 
BEQ -BR IF YES 
HLT 2 ERROR IN LU 13 
SCOPE >SCOPE THIS TEST 


seeeeeeeeeetetererereneeeeee TEST 4 tentenneterarenenteeeenenes 
;*MAINTENANCE REGISTER READ/ONLY TEST 

;*D0 A MASTER CLEAR, VERIFY THAT ALL READ/ONLY 

;*BITS ARE IN THE CORRECT STATE 


S MARK eeetereteretereteteateteteteteneteteteteteteneeeeeeeeess 


> TEST 4 
MOV #4, TSTNO. 
MOV #TSTS,NEXT 
-R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
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LINE UNIT READ/ONLY TESTS 


2$: 
3$: 


1$: 


TSTS: 


1$: 


3$: 


MOV #17,R2 ;SAVE R2 FOR TYPEOUT 

ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021004!<20*17> : PORT4 LINE ee REG 17 

MOV 4(R1) ,R4 ‘"FOUND'' IN R4 


BIC #206 ,R4 ‘CL LEAR UNKN NOWN nt S 

MOV #51,R5 “PUT EXPECTED’ IN RS 

BIT #BIT13,STATI ;1S LU AN M8202 OR M8201? 
BNE 2$ BR IF M8202 

BIT #BIT14,STATI ; CONNECTOR??? 

BNE 3$ ;BR IF M8201 WITH CONNECTOR 
BIC #40 ,R4 ;MASK OFF SI BIT IF M8202 OR M8201, NO CONNECTOR 
BIC #BITS,R5 :S1 BIT IS UNKNOWN 

CMPB R5,R4 ;ARE SI AND ICIR SET? 

BEQ 1$ ;BR IF YES 

HLT 2 ;ERROR IN LU 17 

SCOPE ;SCOPE THIS TEST 


seeeeeeeterereteeereteeneeee TEST 5 ranaeeaanearaenrenerarernnet 
;*LINE UNIT REGISTER WRITE/READ TEST 

;*SET BITS IN LU REGISTER 12, VERIFY IT IS SET 

;*CLEAR BITS IN LU REGISTER 12, VERIFY IT IS CLEAR 


; MABRBRABBRBBRBBARABARARRARSBSARARRRARARRARRAR RRR RARRRRA RR RRR RR RRR RR REDD S| 


; Vest 3 
MOV #5,1TSTN 
MOV #TST6, NEXt 
MOV #1$,LOCK 
;R1 CONTAINS BASE DMC1i ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #12,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
MOV #40,4(R1) ;LOAD PORT4 
ROMCLK ;NEXT WORD if INSTRUCTION, ROMCLK PC=5504 
122112 ;SET BITS IN LU-1 
ROMCLK “NEXT WORD Is” INSTRUCTION, ROMCLK PC=5304 
021245 ;READ LU-12 
MOV 0,R ;PUT “‘EXPECTED’’ IN R5 
MOVB 5(R1),R4 :PUT "'FOUND'' IN R4 
BIC #337,R4 :CLEAR UNWANTED BITS 
CMPB R5,R4 ;1S BITS SET? 
BEQ 2$ ;BR IF YES 
HLT ;ERROR, BIT 5 IS NOT SET 
SCOP 1 ;SCOPE SUBTEST (SWO9=1) 
MOV #3$,LOCK ;NEW SCOP 
CLR 4(R1) ;LOAD PORT4 
ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
122112 ;CLEAR BIT 5 IN LU-12 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021245 ;READ LU-12 
CLR R5 ;PUT EXPECTED" ey R5 
MOVB S5(R1),R4 ;PUT ““FOUND'’ IN 
BIC #337 ,R4 ;CLEAR UNWANTED BITS 
CMPB R5,R4 ;1S BITS CLEAR? 
BEQ 4$ “BR IF YES 


SEQ 0049 


CZDME 


MACY11 30A(1052) 


CZDME.P11 
2444 013156 
2445 013160 
2446 013162 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 013164 
2458 013172 
2459 013200 
2460 
2461 013206 
2462 013210 
2463 013214 
2464 013222 
2465 013224 
2466 015226 
2467 013230 
2468 013232 
2469 013236 
2470 013242 
2471 013246 
2472 013250 
2473 013252 
2474 013254 
2475 013256 
2476 013264 
2477 013270 
2478 013272 
24679 013274 
2480 015276 
2481 013300 
2482 015302 
2483 015306 
2484 013312 
2485 015314 
2486 013316 
2487 013320 
2488 013322 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 013324 


104003 
104401 
104400 


104400 


0127537 


07-JUL-80 
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000006 
013324 
013214 


000017 
000001 


000001 
000005 
000376 


013264 
000004 


000005 
000376 


000007 001226 


001226 
001216 
001220 


000004 


001220 


13: 


53 


4$: 


TST6: 


1$: 


2$: 
3$: 


4$: 


TST?7: 


PAGE 50 
LINE UNIT WRITE/READ TESTS 


HLT 5 
SCOP 
SCOPE 


seaeeeeeeeeeeeteteeerereeeee 4 G6 tkeeeeeeeeeeeeteeeenetetene 


;ERROR, BITS IS NOT CLEAR 
;SCOPE SUBTEST (SW09=1) 
:SCOPE THIS TEST 


S*LINE UNIT REGISTER WRITE/READ 


TEST 
;*SET BIT1 IN LU REGISTER 17, VERIFY IT IS SET 
S*CLEAR BIT] IN LU REGISTER 17, VERIFY IT IS CLEAR 


PETTUTITITIITILILILILILETL ITIL IIL I TTT t iii iti 


MOV #6, TSTNO 


MOV MTST7 NEXT 


MOV #1$,LOCK 


MOV #17,R2 
MOV #1,4(R1) 


seeeeeeteeereereterereeneeee TEST 7 tetaeeeneaneeereeeeeerentet 


:PUT "EXPECTED'’ IN R5 
;PUT ‘’FOUND'’ IN R4 

;CLEAR UNWANTED BITS 
Is te SE 


;R1 CONTAINS BASE DMC11 ADDRESS 
LEAR DMC11 
; SAVE 36) dl ADDRESS FOR TYPEOUT 


:MASTER C 
;LOAD PORT 


:NEXT WORD IS F | peat ROMCLK PC=5304 


;SET BIT 


:NEXT WORD is” INSTRUCTION, ROMCLK PC=5304 


IN 


;READ LU-17 


1? 


ES 


;ERROR, 


BIT 1 IS NOT SET 
;SCOPE SUBTEST (SWO9=1) 
;NEW SCOP1 


;LOAD PORT4 


“NEXT WORD IS roe ROMCLK PC=5504 


;CLEAR Bl 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 


gf 


LU-17 


READ 
PUT “"EXPECTED'’ IN R5 
:PUT ‘FOUND’ IN R4 
;CLEAR UNWANTED BITS 


Ht. on 


YES 
‘ERROR, BIT] IS NOT CLEAR 
;SCOPE SUBTEST (SWO9=1) 
:SCOPE THIS TEST 


CLEAR? 


>*LINE UNIT REGISTER WRITE/READ TEST 


;*FLOAT A 1 THROUGH LINE UNIT REGISTER 13 
:sFLOAT A 0 THROUGH LINE UNIT REGISTER 13 


—MRBRRRRBEBRRBRERRRARERSRERERSEERR RRR RR RR RRR RRAR RRR RRR RRA A RR AAD ASS A, 


MOV #7, 1STNO 


SEQ 0050 


— | 


CZ0ME MACY11 30A(1052 

CZOME.P11 01-JUL-80 
2500 013332 012737 
$285 013340 012737 
2503 013346 104412 
2504 013350 012702 
2505 013354 012700 
2506 013360 
2507 013360 010061 
2508 013364 042761 
2509 013372 104414 
2510 013374 122113 
2511 013376 104414 
2512 013400 021265 
2513 013402 010005 
2514 013404 042705 
2515 013410 116104 
2516 013414 042704 
2517 013420 120504 
2518 013422 001401 
2519 013424 104003 
2520 013426 104401 
2521 0134350 000241 
2522 013432 106100 
2523 013434 001351 
$3$0 013436 012737 
2525 013444 012700 
2526 013450 005100 
2527 O eee5 
2528 013452 010061 
2529 013456 042761 
2530 013464 104414 
2531 013466 122115 
2532 013470 104414 
2533 013472 021265 
2534 013474 010005 
2535 013476 042705 
2536 015502 116104 
2537 013506 042704 
2538 015512 120504 
2539 013514 001401 
2540 013516 104003 
2541 013520 104401 
2542 015522 005100 
2545 013524 000241 
2544 013526 106100 
2545 013530 001347 
2546 015532 104400 
2547 
2548 
2549 
2550 
2551 
2552 
2555 
2554 
2555 


) QO7-JUL-80 13:53 PAGE 51 
15:29 LINE UNIT WRITE/READ TESTS 
013534 001216 MOV #TST10,NEXT 
013360 001220 MOV #64$,L0CK 
MSTCLR 
000013 MOV #13,R2 
000001 ae MOV #1 RO 
000004 MOV RO,4(R1) 
000257 000004 BIC #257,4(R1) 
ROMCLK 
122100!13 
ROMCLK 
21005 !<13*20> 
MOV RO,RS 
000257 BIC #257,R5 
000005 MOVB 5(R1),R4 
000257 BIC #257,R4 
CMPB R5,R4 
BEQ 65$ 
HLT 3 
65$:  SCOP1 
CLC 
ROLB RO 
BNE 64$ 
013452 001220 MOV #67$,LOCK 
000001 MOV #1,RO 
69$: COM RO 
67$: 
000004 MOV RO,4(R1) 
000257 000004 BIC #257,4(R1) 
ROMCLK 
122100!13 
ROMCLK 
21005!<13*20> 
MOV RO.RS 
000257 BIC #257,R5 
000005 MOVB 5(R1),R4 
000257 BIC #257 RG 
CMPB R5,R4 
BEQ 68$ 
HLT : 
68$:  SCOPT 
COM RO 
CLC 
ROLB =: RO 
BNE 69% 
SCOPE 


:R1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 

-SAVE REGISTER ADDRESS FOR TYPEOUT 
>START WITH BIT 0 


;PUT PATTERN INTO PORTS 

;CLEAR UNWANTED BITS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
;MOV DATA TO IBUS REGISTER 13 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;READ FROM IBUS REGISTER 15 

;PUT EXPECTED IN R5 

;CLEAR UNWANTED BITS 

;PUT ‘’FOUND'’ INTO R4 

;CLEAR UNWANTED BITS 

;DATA CORRECT? 


;SWwO9=1? 


;SHIFT BIT IN RO 

:1F RO=0 THEN DONE 

sNEW SCOP1 

sSTART WITH BIT 0 
:CHANGE TO FLOATING ZERO 


;PUT PATTERN INTO PORT4 

;CLEAR UNWANTED BITS 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;MOV DATA TO IBUS REGISTER 15 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;READ FROM IBUS REGISTER 15 

;PUT EXPECTED IN R5 


;DATA CORRECT? 


;SwO9=1? 

>CHANGE TO FLOATING 1 
sCLEAR CARRY 

;SHIFT BIT IN RO 

> IF RO=0 THEN DONE 
>SCOPE THIS TEST 


seeeeeerereeeereeerereeerene TEST 10 reeeeeeceeeeeeererenteenene 
>*LINE UNIT REGISTER WRITE/READ TEST 

;*FLOAT A 1 THROUGH LINE UNIT REGISTER 14 

;*FLOAT A 0 THROUGH LINE UNIT REGISTER 14 


S AeeaeeeeeereeteeteeeeteeatentaReteteteeeeeeteteneaereeereeenes 


; VESt 


10 


A 





CZ0ME MACY11 SOA Re) O7-JUL-80 13:53 PAGE 52 
CZDME .P1i 01-JUL-80 15:29 LINE UNIT WRITE/READ TESTS SEQ 0052 
2556 5 eeoeeoreccceeee 
2557 013534 012737 000010 001226 TST10: MOV #10,TSTNO 
2558 013542 012737 013710 001216 MOV #TST11,NEXT 
2559 013550 012737 013570 001220 MOV #64$,L0CK 
2560 ;R1 CONTAINS BASE DMC11 ADDRESS 
2561 013556 104412 MSTCLR ;MASTER CLEAR DMC11 
2562 013560 012702 000014 MOV #14 ,R2 ;SAVE REGISTER ADDRESS FOR TYPEOUT 
2565 013564 012700 000001 MOV #1,R0 ;START WIT4 BIT 0 
2564 013570 64$: 
2565 013570 010061 000004 MOV RO,4(R1) ;PUT PATTERN INTO PORT4 
2566 013574 104414 ROMCLK NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2567 013576 122114 122100!14 ;MOV DATA TO IBUS REGISTER 14 
2568 013600 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
2569 013602 021305 21005!<14#20> READ FROM IBUS REGISTER 14 
2570 013604 010005 MOV RO,R5 ;PUT EXPECTED IN R5 
2571 013606 116104 000005 MOVB 5(R1),R4 ;PUT "FOUND'' INTO R4 
2572 013612 120504 CMPB R5 ,R4 ;DATA CORRECT? 
013614 001401 BEQ 65% BR IF YES 
013616 104003 HLT 3 ; ERROR 
013620 104401 65$: SCOP ;SWO9=1? 
013622 000241 CLC >CLEAR CARRY 
013624 106100 ROLB RO ;SHIFT BIT IN RO 
013626 001360 BNE 64% ; if gc — DONE 
013630 012737 013644 001220 MOV #67$,LOCK ;NEW SCO 
013636 012700 000001 MOV #1 ,RO ; START WITH BIT 0 
Rreeer 005100 ths COM RO ;CHANGE TO FLOATING ZERO 
013644 010061 000004 MOV RO,4(R1) sPUT PATTERN INTO PORTS 
013650 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
013652 122114 Sky fa ; MOV DATA TO IBUS REGISTER 14 
013654 104414 ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
013656 021305 21005! <14*20> ;READ FROM IBUS REGISTER 14 
013660 010005 RO,R5 ;PUT EXPECTED IN R5 
013662 116104 000005 NOVB 5(R1) ,R4 ;PUT "FOUND'' INTO R4 
0135666 120504 CMPB R5,R4 ;DATA CORRECT? 
013670 001401 BEQ 68% ;BR IF YES 
013672 104005 HLT b ; ERROR 
013674 104401 68$: SCOP ;SWO9=1? 
013676 005100 COM RO ;CHANGE TO FLOATING | 
013700 000241 CLC :CLEAR CARRY 
013702 106100 ROLB RO ;SHIFT BIT IN RO 
013704 001356 BNE 69$ ;1F RO=0 THEN DONE 
013706 104400 SCOPE ;SCOPE THIS TEST 
seeererercerrerereeeeeeceren TEST 1] seeeeereeeneceneesetererers 
-*SWITCH PAC TEST 
;*THIS TEST READS SWITCH PAC#1 
a SWITCH PAC CONTAINS THE DDCMP LINE # 
-@RReeReteheeteeeteeetetteeteteteeeeteeeetereeeeeeneseeeesetere 
s Vest v1 
013710 012737 000011 001226 TST11: MOV #11, TSTNO 
013716 012737 013752 001216 MOV @TST12, NEXT 





;R1 CONTAINS BASE DMC11 ADDRESS 


— AEA EE I AY I I ee 





CZDME MACY11 30A(1052) O7-JUL-80 13:53 PAGE 53 
CZ9ME P11 01-JUL-80 15:29 LINE UNIT WRITE/READ TESTS SEQ 0053 
sole 013724 104412 MSTCLR ;MASTER CLEAR DMC11 
26135 013726 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
2614 SF 0 02132 021324 :PORT4 LUIS 
2615 015732 4 Bh. 000004 MOV 4(R1),R4 ;PUT ‘FOUND’ IN R4 
2616 013736 113705 001370 MOVB STAT2,R5 ;PUT "‘EXPECTED'' IN RS 
2617 013742 120504 CMPB R5,R4 Sw OK? 
2618 013744 001401 BEQ 1$ ;BR IF YES 
2619 013746 104031 HLT 31 sERROR, SWITCH PAC READ ERROR 
gost 013750 104400 1$: SCOPE ;SCOPE THIS TEST 
2622 
2625 peeeerererereetereeereeeaernen TEST 12 teeraeneaereneeereaerererrret 
2624 :*SWITCH PAC TEST 
2625 ;*THIS TEST READS SWITCH PACA2 
2626 s*THIS SWITCH PAC CONTAINS THE BM873 BOOT ADD 
2627 ST RRAAARHRHAEHE HERA RE EHR H AHR HAHA KeKeKeHeeKeteeteeeeeeeHeret 
2628 
2629 » TEST V2 
2630 eee een een----- 
2631 013752 012737 000012 001226 TST12: MOV #12,TSTNO 
2632 013760 012737 014014 001216 MOV #TST13,NEXT 
2633 ;R1 CONTAINS BASE DMi11 ADDRESS 
2634 013766 104412 MSTCLR ;MASTER CLEAR DMC11 
2635 013770 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
2636 013772 021344 021344 ;PORT4 LU16 
2637 015774 016104 000004 MOV 4(R1),R4 :PUT ‘FOUND’ IN RG 
2638 014090 113705 001371 MOVB STAT2Z¢+1,R5 ;PUT “‘EXPECTED'’ IN RS 
2639 014004 120504 CMPB R5,R4 ;SW OK? 
2640 014006 001401 BEQ i$ ;BR IF YES 
2641 014010 104031 niLT 31 sERROR, SWITCH PAC READ ERROR 
oe 014012 194400 1$: SCOPE ;SCOPE THIS TEST 
2644 
2645 seeateerereetereereeeererene TEST 13 xeeeeeeeeeeeeereeeetererert 
2646 ;*LINE UNIT CLOCK TEST 
2647 >*THIS TEST VERIFYS THAT THE LU INTERNAL CLOCK 
2648 :*(BIT 1 IN LU-17) IS WORKING 
2649 SRA RAARAAHE HAHA AA HAHAH ee AAA AAA AAA AAKARAKAKAAKAe eee eA Ae 
2650 
2651 s Vest 5 
2652 peer e oer cceceo- 
2653 014014 012737 000013 001226 1TST13: MOV #13,TSTNO 
2654 014022 012737 014114 001216 MOV #TST14,NEXT 
2655 ;R1 CONTAINS BASE DMC11 ADDRESS 
2656 014030 104412 MSTCLR ;MASTER CLEAR DMC11 
2657 014032 005037 001416 CLR TEMP ;PREPARE FOR DELAY 
2658 014036 1$: 
2659 014036 104414 ROMCLK >NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
2660 014040 021364 021364 :PORT4 LU-17 
2661 014042 032761 000002 000004 BIT #2,4(R1) 1S CLOCK BIT SET? 
2662 014050 001004 BNE 2$ ;BR IF YES 
26635 014052 005237 001416 INC TEMP ;DELAY 
2664 014056 001367 BNE 1$ ;DELAY FINISHED? 
2665 014060 104004 HLT 4 sERROR BIT IS STUCK CLEAR 
2666 014062 
2667 014066 3$: 


| 
005037 001416 2$: CLR ‘TEMP :PREPARE FOR DELAY 





—_ | 





;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 _LU=17 

71S CLOCK BIT CLEAR? 

:BR C YES 


>DELA 
>BR iF DELA 
;ERROR BIT 


Y NOT DONE 
IS STUCK SET 


seeeeeeeererereeeterererener TEST 14 teaeanereenaerereararererene 


>*SET SOM AND LOAD OUT DATA SILO 


INDICATING THAT THE 


;*CHARACTER IS AT THE BOTTOM OF THE OUT SILO 


SERRA AAAAAAAEEEEEEEAAAAAAAAAEAAAARAAAAAERAARTAARAAERARA AHA AT ERATE 


;R1 CONTAINS BASE DMiL11 ADDRESS 

;MASTER CLEAR DMC11 

;SET LINE UNIT LOOP 

;LOAD PORTS WITH BITO 

SET SON WORD IS INSTRUCTION, ROMCLK PC=5304 


SOM 

;NEXT WORD 3 INSTRUCTION, ROMCLK PC=5504 
LOAD OUT DATA SILO 

“WAIT FOR OCOR 

;SAVE ADDRESS FOR TYPEOUT 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;CLEAR UNWANTED BITS 
;PUT "‘EXPECTED’’ IN R5 
;1S OCOR SET? 

;BR IF YES 


;SCOPE THIS TEST 


seeeeeereretereterereererene TEST 15 teterareraretererernereenes 
:*DDCMP TEST OF RTS AND OUT ACTIVE 

;*SET SOM AND LOAD OUT DATA SILO 

;*SINGLE STEP 2 DATA CLOCKS, VERIFY 


Srekeraetereerereteeeeereteeeeteneetaeeateneeteeeaneeetererenenes 


;R1 CONTAINS BASE DMC11 ADDRESS 


CZDME MACY11 sate Ho 07-JUL-80 13:53 PAGE 54 

CZDME .P11 01-JUL-80 15:29 LINE UNIT WRITE/READ TESTS 
2668 014066 104414 ROMCLK 
2669 014070 021364 021364 
2670 014072 032761 000002 O0C0004 BIT #2,4(R1) 
2671 014100 1404 BEQ 4$ 
2672 014102 005237 001416 INC TEMP 
2673 014106 001367 BNE 3$ 
2674 014110 1046004 HLT 4 
2675 014112 104400 4$: SCOPE 
2676 
2677 
2678 
2679 >*OUT DATA SILO TEST 
2680 
2681 :*VERIFY THAT OCOR SET, 
2682 
2683 
2684 
2685 ; TEST 14 
2686 peer oeoerecceee- 
2687 014114 012737 000014 001226 TST14: MOV #14,TSTNO 
sons 014122 012737 014214 001216 MOV #TST15,NEXT 
2690 014130 104412 MSTCLR 
2691 014132 012711 004000 MOV WBIT11,(R1) 
2692 014136 012761 000001 000004 MOV #1,4(R1) 
2693 014144 104414 ROMCLK 
2694 014146 122111 122111 
2695 014150 104414 ROMCLK 
2696 014152 122110 122110 
2697 014154 104416 000002 TIMER, 2 
2698 014160 012702 000017 MOV #17,R2 
2699 014164 104414 ROMCLK 
2700 014166 021364 021364 
2701 014170 016104 000004 MOV 4(R1),R4 
2702 014174 042704 000357 BIC #357,R4 
2703 014200 012705 000020 MOV #20,R5 
2704 014204 120504 CMPB R5,R4 
2705 014206 001401 BEQ 1$ 
2706 014210 104005 HLT 5 
2707 014212 1$: 
2708 014212 104400 SCOPE 
2709 
2710 
2711 
2712 
2713 
2714 
2715 :*THAT RTS AND ACTIVE ARE SET 
2716 
2717 
gre ; TEST 15 
2720 014214 012737 000015 001226 1TST15: MOV #15,TSTNO 
$15) 014222 012737 014352 001216 MOV #TST16,NEXT 
27235 014230 104412 MSTCLR 


;MASTER CLEAR DMC11 


SEQ 0054 


Oe 


—_ oo — -_- ——— — 


on 
MN 
C9 


aie 


-P1 


WANA Pr nrnne re 
WN Oo DOOnNOus 


MMIMI POP POPU POPUP PPT Preru 
SN NS SN SN SN SS SNS SN NSN SSS 
Ww 


2739 


SNA A I EI 


MR) — — 2 . 


014352 
014360 


014404 


eee ee ee eed aed aed oD 
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104005 
012702 


104005 
104400 


~ 4 OOS 00 CO 
wre ANOLON ~~ ™N 


004000 
000001 


026702 
000002 
000011 


000004 
000257 
000120 


000015 


000004 
000337 
000040 


026702 
000002 
000200 


000001 


07-JUL-80 
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000004 


001226 
001216 


000004 


000004 


13:53 PAGE 55 


BASIC TRANSMITTER TESTS 


2$: 


TST16: 


MOV 
MOV 


SCOPE 


#BIT11,(R1) 
#1 ,4(R1) 


G(R1),R4 
#257 ,R4 
#120,R5 
R5,R4 

1$ 

) 


#13,R2 
4(R1),R4 
337,R4 
#B1T5 RS 
RS RG 

4 
5 


;SET LINE UNIT LOOP 

LOAD PORTS WITH BITO 

:NEXT WORD IS INSTRUCTION, 

:SET SOM 

:NEXT WORD IS INSTRUCTION, 

;LOAD OUT DATA SILO 

WAIT FOR OCOR 

-CLOCK DATA FOUR TIMES 

; SAVE ADDRESS FOR TYPEOUT 
‘NEXT WORD IS INSTRUCTION, 

; PORTS LU 11 

-PUT "FOUND'’ IN R4 

;CLEAR UNWANTED BITS 

“PUT "'EXPECTED'’ IN RS 

1S ACTIVE SET? 

-BR IF YES 


SAVE ADDRESS FOR TYPEOUT 
NEXT WORD IS INSTRUCTION, 
-PORT4 LU 13 
“PUT EXPECTED IN R4 
;CLEAR UNWANTED BITS 

“PUT EXPECTED’ IN RS, RTS 

-1S RTS OK? 

“BR IF YES 

:RTS ERROR 


;SCOPE THIS TEST 


ROMCLK PC=5304 
ROMCLK PC=5304 


ROMCLK PC=5304 


ROMCLK PC=5304 


SHOULD BE SET 


apes 06 ot ae TEST 16 ee eeeeereeareererenaeeerenes 
:*TEST OF OUT CLEAR 
;*SET SOM AND LOAD OUT DATA SILO 

;*SINGLE STEP DATA CLOCK, SET OUT CLEAR 
“*VERIFY THAT OCOR,RTS, AND ACTIVE ARE CLEARED 


: POTTS TTTTETTITTCITITITITITTTETITIT TTT TTT 


s Test 16 


DATACLK, 


PC ,OCOR 


"WBIT7,4(R1) 


1 


;R1 CONTAINS BASE DMC11 ADDRESS 


;MASTER CLEAR DMC11 
;SET LINE UNIT LOOP 
;LOAD PORTS WITH BITO 


“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;SET SOM 


:NEXT WORD IS INSTRUCTION, 
;LOAD OUT DATA SILO 

“WAIT FOR OCOR 

;CLOCK DATA FOUR TIMES 
;SET BIT? IN 


ROMCLK PC=5504 


PORT4 
:NEXT WORD | A getter, ROMCLK PC=5504 


; SET wt CLEA 
:GIVE A TICK TO CLEAR RTS 


SEQ 0055 


_ LN LL TT TS 


ee ee eee aaa 
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014546 


014550 
014556 





014626 


012702 


104005 


012702 
104414 


104005 


012702 
104414 


104005 
104400 


oo 
—_ — 
LAA 


o~ OOO — 
=—Mmo—-o—-2 


M&O & PP 
Ok wn BS Ss FD “SN 


— —— > 


II 


000017 


000004 
000357 


000013 


000004 
000337 


000011 


000004 
000020 


000017 
014732 


004000 
027034 
000001 


000000 
027034 
000004 
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001226 
001216 


000004 


13:53 PAGE 56 


BASIC TRANSMITTER TESTS 


MOV #17,R2 ;SAVE ADDRESS FOR TYPEOUT 
ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 ;PORT4S LU 17 
MOV 4(R1),R4 :PUT ‘FOUND’ IN RG 
BIC #357 ,Ré ;CLEAR_ UNWANTED BITS 
CLR R> : PUT EXPECTED’ IN R5 
CMPB R5,R4 ;I1S OCOR CLEARED? 
BEQ 1$ :BR IF YES 
- HLT 5 
MOV #13,R2 ;SAVE ADDRESS FOR TYPEOUT 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
021264 :PORT4 LU 13 
MOV 4(R1),R4 :PUT ERPECTED IN R4 
BIC #337,R4 ;CLEAR UNWANTED BITS 
CLR R5 : PUT ""EXPECTED'' IN RS, RTS SHOULD BE CLEARED 
CMPB R5,R4 ;1S RTS OK? 
BEQ 2$ -BR IF YES 
- HLT 5 ;RTS ERROR 
MOV #11,R2 ;SAVE ADDRESS FOR TYPEOUT 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021224 ;PORT4 LU11 
MOV 4(R1),R4 :PUT "FOUND'' IN R 
MOV #BIT4,RS ;ONLY OUT READY aes BE SET 
CMPB R5,R4G ;1S ACTIVE CLEAR? 
BEQ 3$ “BR IF YES 
_ HLT 5 ;ERROR ACTIVE NOT CLEARED 
SCOPE ;SCOPE THIS TEST 
seeeeeeeeeeeeerereneeeeeeane TEST 17 ee eee eeeeeeeeeeteeeeeeteeee 
: *DDCMP TRANSMITTER TEST 
;*SINGLE CLOCK THE CHARACTER 0 
- #VERIFY EACH BIT POSITION AS IT 
> #PASSES THE BIT WINDOW (SI BIT) 
>*O0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
} -@M@RReeekteeeeeketeeeeeeeeteeteeeaeteneteeeteteteneeteteteteeerert 
> TEST 17 
TST17: MOV #17,TSTNO 
MOV #TST20,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
JSR PC ,OUTRDY ;WAIT FOR Th peken 
MOV Wi ,4(R1) -SET BITO IN POR 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 ;SET SOM! 
MOV #0,R5 ;LOAD CHARACTER IN RS FOR TYPEOUT 
JSR PC ,OUTR DY WAIT FOR OQUT-READY 
MOV R5,4(R1) ‘TOAD PORTS WITH CHARACTER 
ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
122110 ;LOAD OUT DATA 


SEQ 0056 
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C7DME MACY11 he 07-jJUL-80 13:53 PAGE 57 
CZ7DME .P11 01-JUL-80 15:29 BASIC TRANSMITTER TESTS SEQ 0057 
2836 014630 004737 026702 JSR PC ,OCOR :WAIT FOR OCOR TO SET 
2837 014634 005003 CLR R3 “CLEAR BIT COUNTER 
2838 014636 010502 MOV R5,R2 :LOAD CHARACTER IN R2 
2839 014640 104415 000002 DATACLK, 2 -2 TICKS TO SET UP TRANSMITTER 
2840 014644 104415 000001 1$: DATACLK, 1 :SHIFT NEXT BIT IN THE WINDOW (SI dIT) 
2841 014650 106002 RORB R2 :SHIFT NEXT SOFTWARE BIT IN TO CARRY 
014652 103005 BCC 2$ -BR IF CARRY CLEAR 
014654 004737 026650 JSR PC ,GETSI ;GET THE WINDOW 
014660 103406 BCS 3$ :BR IF BIT IS A MARK 
014662 104006 HLT 6 sERROR BIT WAS A SPACE 
014664 000404 BR 3$ >CONTINE WITH TEST 
014666 004737 026650 cs: JSR PC,GETSI ;GET THE WINDOW 
014672 103001 BCC 3$ ;BR IF BIT IS A SPACE 
014674 104006 HLT 6 ;sERROR BIT WAS A MARK 
014676 3g: 
014676 005203 INC R3 -NEXT BIT 
014700 022703 000010 CMP #i0,R5 ;DONE YET? 
014704 001357 BNE 1$ ;BR IF NO 
014706 104415 000014 DATACLK, 14 >CLOCK TRANSMITTER 14 MORE TICKS 
014712 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
014714 021264 021264 -PORT4 LU-13 
014716 032761 000040 000004 BIT #BI1T5,4(R1) :RTS SHOULD BE CLEAR NOW 
014724 001401 BEQ 4$ ;BR IF YES 
014726 104034 HLT 34 ;ERROR, RTS NOT CLEAR 
014730 104400 4$: SCOPE ;SCOPE THIS TEST 


peeeeeneeerereterererereteee TEST 20 tetenaerarenenereererereere 
;*DDCMP TRANSMITTER TEST 

;*SINGLE CLOCK THE CHARACTER 125 

;*VERIFY EACH BIT POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 

;*0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 


: —MABRBRBRBRBBRBRRBRBRRSBRRBRRBRRRRRRR RRR RARER RRR RRR RR RRR ARRRRRRRA RODD EES 


TEST 20 
014732 012737 000020 001226 TST20: MOV #20,TSTNO 
014740 0127357 015114 001216 MOV #TST21,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
014746 104412 MSTCLR ;MASTER CLEAR DMC11 
012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
004737 027034 JSR PC ,OUTRDY ;WAIT FOR -s ma i 
012761 000001 000004 MOV #1,4(R1) ;SET BITO | RT4 
104414 ROMCLK ;NEXT WORD is. INSTRUCTION, ROMCLK PC=5504 
122111 122111 ;SET SOM! 
012705 000125 MOV #125, if ja CHARACTER IN R5 FOR TYPEOUT 
004737 027034 JSR PC ,OUT ;WAIT FOR OUT-READY 
010561 000004 MOV RS etRI) ;LOAD PORTS WITH CHARACTER 
104414 ROMCLK “NEXT WORD + INSTRUCTION, ROMCLK PC=5504 
122110 122110 ;LOAD OUT DATA 
004737 026702 JSR PC ,OCOR :WAIT FOR OCOR TO SET 
005003 CLR R3 ;CLEAR BIT COUNTER 
010502 MOV R5,R2 ;LOAD CHARACTER IN R2 
104415 000002 DATACLK, é ;2 TICKS TO SET UP TRANSMITTER 
104415 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 


me . — - —_ —— —_ — + + — ee 
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C 
C 


DME MACY) gee Ft 

DME P11 01-JUL-80 15: 

2892 015032 106002 

2893 015034 103005 

2894 015036 4737 026650 
2895 015042 103406 

2896 015044 104006 

2897 015046 000404 

2898 015050 004737 026650 
2899 015054 103001 

2900 015056 104006 

2901 015060 

2902 015060 005203 

2903 015062 022703 000010 
2906 015066 001557 

2905 015070 104415 000014 
2906 015074 104414 

2907 015076 021264 

2908 015100 032761 000040 
2909 015106 001401 

2910 015110 104034 

2911 015112 104400 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2925 

2924 015114 012737 000021 
2925 015122 012737 015276 
2926 

2927 0151350 104412 

2928 0151352 012711 004000 
2929 015136 004737 027034 
2930 015142 012761 000001 
2931 015150 104414 

2932 015152 122111 

2935 015154 012705 000252 
2934 015160 004737 027034 
2935 015164 010561 000004 
2936 015170 104414 

2937 015172 122110 

2938 015174 004737 026702 
2939 015200 005003 

2940 015202 010502 

2941 015204 104415 000002 
2942 015210 104415 000001 
2943 015214 106002 

2944 015216 105005 

2945 015220 004737 026650 
2946 015224 103406 

2947 015226 104006 


07-JUL-80 
29 


000004 


001226 
001216 


000004 


13:53 PAGE 5 


8 
BASIC TRANSMITTER TESTS 


2$: 


3$: 


4$: 


TST21: 


RORB 


R2 

2% 
PC,GETSI 
3$ 

6 

3$ 

PC ,GETSI 


;SHIFT NEXT SOFTWARE BIT IN TO CARRY 


R IF CARRY CLEAR 


;ERROR BIT WAS A SPACE 
;CONTINE WITH TEST 
;GET THE WINDOW 

;BR IF BIT IS A SPACE 
sERROR BIT WAS 


;NEXT BIT 


A MARK 


;DONE YET? 

:BR IF NO 

-CLOCK TRANSMITTER 14 MORE TICKS 

“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:PORT4 LU-13 

-RTS sAGULD BE CLEAR NOW 

-BR IF YES 

ERROR, RTS NOT CLEAR 


:SCOPE THIS TEST 


seeeeeeetreeeereeeteeeeeenene TEST 2] eeteaearreeterrererrneerere 


;*DDCMP TRANSMITTER TEST 


:*SINGLE CLOCK THE CKARACTER 252 
;*VER'FY EACH BIT POSITION AS IT 
;*PASSES THE BIT WINDOW (SI BIT) 
;*O0N AN ERROR, R35 CONTAINS BIT POSITION OF FAILURE 


: -R@RAHHeHeEHeEHHeEeKeeeeeeteeteeeteaeeeeeteteeeteteeeteeeteteeaeeerere 


#21,TSTNO 
#TST22,NEXT 


#BIT11,(R1) 
PC ,OUTRDY 
#1,4(R1) 


#252,R5 

PC OUTRDY 
R5,4(R1) 
PC ,OCOR 

R3 


R5,R2 


2 
PC,GETSI 
3$ 

6 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 
;SET LINE UNIT LOOP 


;WAIT FOR OUT-READY 
;SET BITO IN PORTS 
:NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


;SET 
;LOAD CHARACTER IN RS FOR TYPEOUT 


;WAIT FOR OUT-READY 

;LOAD PORTS WITH CHARACTER 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;LOAD OUT DATA 


:WAIT FOR OCOR TO SET 
;CLEAR BIT COUNTER 


;LOAD CHARACTER IN R2 

:2 TICKS TO SET UP TRANSMITTER 

;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
;SHIFT NEXT SOFTWARE BIT IN IO CARRY 


“BR IF CARPY CLEAR 
;GET THE WINDOW 

:BR IF BIT IS 
-ERROR BIT WAS A SPACE 


A MARK 


SEQ 0058 


—— es — eee — - —_—_=- -—_—=- — _— 


_-_ ———_— 





CZDME MACY11 ayer O7-JUL-80 13:53 PAGE 59 
CZ7DME.P11 01-JUL-80 15:29 BASIC TRANSMITTER TESTS SEQ 0059 
015230 000404 BR 3$ s CONT INS WITH TEST 
015232 004737 026650 2$: JSR PC ,GETSI GET THE WINDOW 
015236 103001 BCC 3$ R IF BIT IS A SPACE 
015240 104006 HLT 6 “ERROR BIT WAS A MARK 
015242 3$: : 
015242 005203 INC R3 ;NEXT BIT 
015244 022703 000010 CMP #10,R3 ;DONE YET? 
015250 00135 BNE 1$ ;BR IF NO 
015252 104415 000014 DATACLK, 14 ;CLOCK TRANSMITTER 14 MORE TICKS 
015256 10441 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
015260 02126 021264 ;PORT4 LU-13 
015262 032761 000040 000004 BIT WBITS,4(R1) ;RTS SROULD BE CLEAR NOW 
015270 001401 BEQ 4$ “BR IF YES 
015272 104034 HLT 34 “ERROR, RTS NOT CLEAR 
015274 104400 4$: SCOPE ;SCOPE THIS TEST 
seeeeeeeeeeeeeeteetterrteret TEST 22 eeeeekeeeteeeeenaeeeeeenete 
: *DDCMP TRANSMITTER TEST 
s*SINGLE CLOCK THE CHARACTER 377 
“VERIFY EACH BIT POSITION AS IT 
;*PASSES THE BIT WINDOW (SI BIT) 
>#0N AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
S RRR ARAEA EERE ERE RERERREEREREERAEREREREEEEEREAE HERE ERE RTE 
s TEST dz 
015276 012737 000022 001226 ITST22: MOV #22,TSTNO 
015304 012737 015460 001216 MOV #TST23,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
015312 104412 MSTCLR ;MASTER CLEAR DMC11 
015314 012711 004000 MOV WBIT11,¢(R1) ;SET LINE UNIT LOOP 
015320 004737 027034 JSR PC ,OUTRDY ;WAIT FOR OUT- my 
015324 012761 000001 000004 MOV #1,4(R1) >SET BITO IN 
015332 104414 ROMCLK :NEXT WORD is. INSTRUCTION, ROMCLK PC=5304 
015334 122111 122111 T SOM! 
015336 012705 000377 MOV #377, he — CHARACTER IN RS FOR TYPEOUT 
015342 004737 027034 JSR at OUTR WAIT FOR OUT-READY 
015346 010561 000004 MOV RS, TtRT) ‘TOAD PORT4 WITH CHARACTER 
015352 104414 ROMCLK ;NEXT WORD ¢ INSTRUCTION, ROMCLK PC=5304 
015354 122110 122110 ;LOAD OUT DATA 
015356 004737 026702 JSR PC ,OCOR “WALT FOR OCOR TO SET 
015362 005003 CLR R3 ;CLEAR BIT COUNTER 
015364 010502 MOV R5,R2 ;LOAD CHARACTER IN R2 
015366 104415 000002 DATACLK, ;2 TICKS TO SET UP TRANSMITTER 
015372 104415 000001 1$: DATACLK, 1 ;SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
015376 106002 RORB R2 ;SHIFT NEXT SOFTWARE BIT IN TO CARRY 
015400 103005 BCC 2$ ;BR IF CARRY CLEAR 
015402 004737 026650 JSR PC ,GETSI GET THE WINDOW 
015406 103406 BCS 3$ :BR IF BIT IS A MARK 
015410 104006 HLT ;ERROR BIT WAS A SPACE 
015412 000404 BR 3$ :CONTINE WITH 
015414 004737 026650 2$: JSR PC ,GETSI ;GET THE Wl 
015420 103001 BCC 3$ ;BR IF BIT IS A SPACE 
015422 104006 HLT 6 ;ERROR BIT WAS A MARK 
015424 3$: 


°°. —2S ee = => 


—S SSS. 


CZ7DME MACY1) yooh 07-JUL-80 
CZDME .P11 O1-JUL-80 15:29 
3 015424 005203 
3005 015426 022703 000010 
3006 015432 00155 
3007 015434 104415 000014 
3008 015440 10441 
3009 015442 02126 
3010 015444 032761 000040 000004 
3011 015452 001401 
3012 015454 104034 
3013 015456 104400 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 015460 012737 000023 001226 
55 015466 012737 015666 001216 
3030 015474 104412 
3031 015476 012711 004000 
3032 015502 005003 
3033 015504 005004 
3034 015506 005005 
3035 015510 004737 927034 
3036 015514 012761 000001 000004 
3037 015522 104414 
3038 015524 122111 
3039 015526 004737 027034 
3040 015532 010461 000004 
3041 015536 104414 
3042 015540 122110 
3045 015542 005204 
3044 015544 004737 027034 
3045 015550 910461 000004 
3046 015554 104414 
3047 015556 122110 
3048 015560 004737 026702 
3049 015564 104415 000002 
3050 015570 005003 
3051 015572 010502 
3052 015574 104415 000001 
3053 015600 106002 
3054 015602 1035005 
3055 015604 737 026650 
3056 015610 103406 
5057 015612 104006 
3058 015614 000404 
3059 015616 004737 026650 


mm rm rm mae a em —S 
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BASIC TRANSMITTER TESTS 


4$: 


TST23: 


4$: 
1$: 


2$: 


HLT 
SCOPE 


WBITS,4(R1) 
4$ 
34 


;NEXT BIT 
;DONE YET? 


:BR IF NO 

;CLOCK TRANSMITTER 14 MORE TICKS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU-15 

:RTS SHOULD BE CLEAR NOW 


IF YE 
;ERROR, RTS NOT CLEAR 
;SCOPE THIS TEST 


-eetekeketereeeteretereeeene TEST 25 seneeeeereeeeeneerereerenee 


;*DDCMP TRANSMITTER TEST 


;*SINGLE CLOCK A BINARY COUNT PATTERN 

;*VERIFY EACH BIT POSITION AS IT 

;*PASSES THE BIT WINDOW (SI BIT) 

;*ON AN ERROR, R3 CONTAINS BIT POSITION OF FAILURE 
;*AND R5 CONTAINS THE CHARACTER THAT FAILED 


; 'MABBBRBARBBRBBRRABRBRABBRARSARRRRARARR RR RRRR RA RRRRRR RR RRR RRR RRR RRR ROS SSD O, 


; TEST 23 
MOV #23,TSTNO 
MOV #TST24,NEXT 
MSTCLR 
MOV #B1lT11,(R1) 
CLR R3 
CLR RG 
CLR RS 
JSR PC ,OUTRDY 
MOV #1,4(R1) 
ROMCLK 

122111 
JSR PC ,OUTRDY 
MOV R4 ,4(R1) 
ROMCLK 

122110 

INC R4 
JSR PC ,OUTRDY 
MOV R4,4(R1) 
RCOMCLK 

122110 

SR PC ,OCOR 
DATATLK, 

CLR 3 
MOV R5,R2 
DATACLK, 
RORB R2 
BCC 2$ 
JSR PC GETS] 
BCS 3$ 
HLT 
BR 3$ 

JSR PC ,GETSI 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


:SET LINE UNIT LOOP 
R3 CONTAINS BIT COUN 
Ra CONTAINS CHAR TO BE LOADED IN SILO 
:R5 CONTAINS CHARACTER CURRENTLY BEING SHIFTED OUT 
WAIT FOR = oakek 
;SET BITO IN P 
NEXT WORD I$ INSTRUCT LON, ROMCLK PC=5304 


inte FOR OUT-READY 


;LOAD PORT4 WITH CHARACTER 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;LOAD OUT DATA 

; INCREMENT TO NEXT CHARACTER 

:WAIT FOR OUT-READY 

;LOAD PORT4 WITH CHARACTER 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 


“WALT FOR OCOR TO SET 

:2 TICKS TO SET UP TRANSMITTER 
;CLEAR BIT COUNTER 

>LOAD CHARACTER IN R2 

>SHIFT NEXT BIT IN THE WINDOW (SI BIT) 
>SHIFT NEXT SOFTWARE BIT IN TO CARRY 
:BR IF CARRY CLEAR 

;GET THE WINDOW 

;BR IF BIT IS A MARK 

sERROR BIT WAS A SPACE 

:CONTINE WITH TEST 

:GET THE WINDOW 


SEQ 0060 


———— a = oo a — oe 


CZDME 


CZDME.P11 





3102 
310 
310 
310 
3106 
310 
310 
310 
311 
311 
311 
311 
311 
311 


1 
1 
1 
1 
107 
108 
109 
110 
111 
112 
115 
114 
115 


015622 


015664 


felelelelelejlejlejejelelej oe) o)-me oi] =) 
WAAAY 


754 
762 


oo 
—3 
ww 


MACY11 POAC 932} 
01-JUL-80 15: 


103001 
104006 


005203 


104400 


104400 


000010 


027034 
000004 


000400 


000024 
015754 


004000 
000012 
026720 


000054 


000004 
000277 


000025 001226 
016044 001216 


07-JUL-80 
29 


001226 
001216 


3$: 


5$: 


TST24: 


1$: 


1$125: 


13:53 PAGE 61 
BASIC TRANSMITTER TESTS 


3$ 
6 


R3 
#10,R3 
1$ 
RG 


PC ,OUTRDY 


R4 ,4(R1) 


RS 
#400,R5 


4$. 


;BR IF BIT IS A SPACE 
;ERROR BIT WAS A MARK 


;NEXT BIT 

:DONE YET? 

;BR IF NO 

;NEXT CHARACTER 

“WAIT FOR OUT-READY 

;LOAD PORT4 WITH CHARACTER 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD OUT DATA 

;NEXT CHARACTER 

son ie YET? 


IF NO 
;SCOPE THIS TEST 


seeeeeeeeeereeeeetrereneeeee TEST 24 terreaneateneraenererenerete 
;*DDCMP STRIP SYNC TEST 
;*SET LU LOOP, SINGLE STEP 5 SYNCS, 

;*VERIFY THAT IN ACTIVE DOES NOT SET 


ST RRAAAAERARAKARAAAKKAKEKAARKARAKAKARAAHAKARAHHEKAKAHEKAKARAte AS 


; TEST 24 

MOV #24, TSTNO 
MOV #1TST25,NEXT 
MSTCLR 

MOV #BIT11,(R1) 
MOV #12,R2 

. PC,SYNC 
DATACLK, 54 
ROMCLK 

02124 

MOV 4(R1),R4 
Bic #277,R4 

CLR 5 

CMPB R5,R4 

BEQ 1$ 

HLT 40 

SCOPE 


>R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 

;SET LU LOOP 

;SAVE LU REG FOR TYPEOUT 
>SINGLE CLOCK 5 SYNC CHARACTERS 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LUI2 

:PUT POUND" IN RG 

;CLEAR UNWANTED BITS 


:PUT ““EXPECTED'’ IN R5 
;1S ACTIVE CLEAR? 
;BR IF YES 

sERROR ACTIVE IS 
-SCOPE THIS TEST 


NOT CLEAR 


seeeeatereererereneeeerenane TEST 25 renteereneaneeereerereereene 
:*DDCMP IN ACTIVE TEST 
;*SET LU LOOP, SINGLE STEP 5 SYNCS AND A NON-SYNC (301) 
Peek THAT IN ACTIVE IS SET 


—MARBRBRBERRRBRERRRBREBSRRERASEEER ERE R RR RRR RRR RRR RRR RR RRA DR RRAD AAAS A, 


; TEST 25 
MOV #25, TSTNO 
MOV #TST26,NEXT 


;R1 CONTAINS BASE DMC11 ADDRESS 


SEQ 0061 





MACY11 30A(1052) OQO7-JUL-80 13:53 PAGE 62 
15:29 BASIC RECEIVER TESTS 


seeeeeeeterereteeeeereerenee TEST 26 trereeneaeneanraneeeeeereett 
>*DDCMP IN ACTIVE TEST 
;*SET LU LOOP, SINGLE STEP 1 SYNC AND A NON-SYNC (301) 


;*VERIFY THAT IN ACTIVE DOES NOT SET 
RR RRRRERE RARE E ERATE EEA RHERRAAA HERAT R ERATE RETA AAAA RASH Ee 


1 01=JUL-80 SEQ 0062 
015770 104412 MSTCLR :MASTER CLEAR DMC11 | 
015772 012711 004000 MOV #B1T11,(R1) “SET LU LOOP | 
015776 012702 000012 MOV #12,R2 -SAVE LU REG FOR TYPEOUT | 
016002 004737 026720 JSR PC, SYNC “SINGLE CLOCK 5 SYNC CHARACTERS | 
016006 000005 5 | 
016010 104415 000064 DATACLK, 64 

016014 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 | 
016016 021244 021244 :PORT4 LUI2 

016020 016104 000004 MOV 4(R1), RG :PUT "‘FOUND'' IN RG 

016024 042704 000277 BIC #277 RL “CLEAR UNWANTED BITS 

016030 012705 000100 MOV #BIT6,RS -PUT EXPECTED’ IN RS 

016034 120504 CMPB aR, RG -1$ ACTIVE SET? 

016036 001401 BEQ 1$ “BR IF YES 

016040 104040 HLT 40 “ERROR ACTIVE IS NOT SET 

016042 104400 1$: SCOPE “SCOPE THIS TEST | 


; TEST 26 

016044 012737 000026 001226 TST26: MOV #26,TSTNO 
016052 012737 016132 1216 OV #1ST27,NEXT 

:R1 CONTAINS BASE DMC11 ADDRESS 
016060 104412 MSTCLR :MASTER CLEAR DM 
016062 012711 004000 MOV WB1T11,(R1) :SET LU LOOP 
016066 012702 000012 MOV #12, ;SAVE LU REG FOR TYP 
016072 004737 026720 JSR PC, SYNC >SINGLE CLOCK 1 SYNC CHARACTERS 
016076 000001 
01 104415 000024 DATACLK, 24 
016104 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
016106 021244 021244 PORTS L 
016110 016104 000004 MOV 4(R1),R4 >PUT ‘FOUND’ IN R4 
016114 042704 000277 BIC #277,R4 CLEAR UNWANTED BITS 
016120 R R PUT "‘EXPECTED'' IN RS 
016122 120504 CMPB R5,R4 :1S ACTIVE CLEAR? 
016124 001401 BEQ 1 :BR 
016126 104040 HLT 40 ERROR ACTIVE IS NOT CLEAR 
016130 104400 1$ SCOPE :SCOPE THIS TEST 


; TEST 27 
016132 012737 000027 001226 15127: MOV #27, 1STNO 
016140 012737 016222 001216 MOV #TST30,NEXT 


0012 M 
C11 
00 
12,R2 EOU 
1 
6100 
| 4 LU12 
005005 CL ) 
$ BR IF YES 
seeeeeeetererererteeeereeeee TEST 27 reereeeeeranearaereteerenres 
;*DDCMP IN ACTIVE TEST 
;*SET LU LOOP, SINGLE STEP 2 SYNCS AND A NON-SYNC (301) 
;*VERIFY THAT IN ACTIVE IS SET 
s RRAAAKERAAE AAA AAA AAA A KAA AKA AKA KA Hee eee eee Keteeereeteeeeeeeee 
;R1 CONTAINS BASE DMC11 ADDRESS 


CZDME _MACY11 30A(1052)_ 07-JUL-80 
CZDME.P11 01=JUL-80 15:29 

3172 016146 104412 

3173 016150 012711 004000 
3174 016154 012702 000012 
3175 016160 004737 026720 
3176 016164 000002 

3177 016166 104415 000034 
3178 016172 104414 

3179 016174 021244 

3180 016176 016104 000004 
3181 016202 042704 000277 
3182 016206 012705 000100 
3183 016212 120504 

3184 016214 001401 

3185 016216 104040 

3186 016220 104400 

3157 

3188 
3189 

3190 

3191 

3192 

3193 

3194 

3195 

3196 

3197 

3198 016222 012737 000030 
$199 016230 012737 016574 001216 
3201 016236 194412 
3202 016240 012702 000012 
3203 016244 012711 004000 
3204 016250 004737 027066 
3205 016254 000301 

3206 016256 104415 000053 
3207 016262 104416 000002 
3208 016266 104414 

3209 016270 021244 

3210 016272 016104 000004 
3211 016276 042704 000357 
3212 016302 012705 000020 
3213 016306 120504 

3214 016310 001401 

3215 016312 104040 

3216. 016314 

3217, 016314 .012761 000200 000004 
3218 016322 °104414 

3219 016324 “122112 

3220 016326 104414 

3221 016330 021244 

3222 016332 016104 000004 
3223 016336 042704 000277 
3224 016342 005005 

3225 016344 120504 

$226 016346 001401 

227 016350 104040 


aa Sse TST30: 


13:53 PAGE 


63 
BASIC RECEIVER TESTS 


1$: 


TCLR 
MOV #B1T11,(R1) 
MOV #12,R2 
JSR PC,SYNC 


DATACLK, 34 


MOV #BIT6,R5 
CMPB R5, 

BEQ $ 

HLT 40 

SCOPE 


;MASTER CLEAR DMC11 

;SET LU LOOP 

;SAVE LU REG FOR TYPEOUT 
;SINGLE CLOCK 2 SYNC CHARACTERS 


NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
>PORT4 LU12 
:PUT "‘FOUND'’ IN RG 
CLEAR UNWANTED BITS 
PUT "EXPECTED’’ IN RS 
:1S ACTIVE SET? 


;BR IF YES 
;ERROR ACTIVE IS NOT SET 
;SCOPE THIS TEST 


seetekeeeeeerereereteeeeenee TEST 50 eaeeeeranteataneaenneeeeeet 


>*IN CLEAR TEST 


;*SYNC UP RECEIVER AND TRANSMIT A CHARACTER 
;*WAIT FOR IN RDY, THEN SET IN CLEAR 
;*VERIFY THAT IN ACTIVE AND IN RDY ARE CLEARED 


; 'MEBRRBBBBREBRBARARASAASRRARARARRARARRRRRRR RRR RRR RR RRR RRR RRR RR RR DDD SD, 


TEST 30 
MOV #30, TSTNO 
MOV #TST31,NEXT 


MSTCLR 

MOV #12,Re 

MOV #B1T11,(R1) 
JSR PC, CHAR 

301 


DATACLK, 53 
TIMER, 2 

ROMCLK 

021244 

MOV 4(R1) ,R4 

BIC #357,R 

MOV #BIT4,R5 
CMPB R5,R4 

BEQ 1$ 

HLT 40 

MOV WBIT7,4(R1) 

ROMCLK 

122112 

ROMCLK 

021244 

MOV 4(R1) ,R4 

BIC #277,R4 
LR R5 

CMPB R5,R4 

BEQ 2$ 

HLT 4() 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 
; SAVE REG tay es R2 FOR TYPEOUT 


:SINGLE CLOCK THE DATA 
WAIT FOR INRDY 
NEXT WORD IS INS”RUCTION, ROMCLK PC=5304 
sPORT4 LU 12 
-PUT 'FOUND'’ IN R4 
CLEAR UNWANTED BITS 
:PUT "‘EXPECTED'' IN R5 
:1S INRDY SET? 


;ERROR, INRDY IS NOT SET 


:LOAD PORT4 

-NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:SET IN CLEAR 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
>PORT4 LU 12 

PUT ‘FOUND’ IN R4 


;ERROR, IN ACTIVE IS NOT CLEAR 


SEQ 0063 


a 


WHIMIWWwwn nen 
Wn oO Oo 


NOU 


oOoo°o°o°o°ooeo — 
ed ed ed ed od 


ew 


oo 
Wwrn—-—- On 


OSnVrNeno ws 


wn & & & 
SFSRNOF 


‘+ A 
“J 


+ 


FFSSSSISISSSSSSSSSSSSSF 
No 


Ooocococoooooooooo°o°0o00oo. sli Ol 
ahabebahebadbd odode db wdbadwdadadadadaaad «aad 


oa 
ee 
Sana 


oo 
— 
oOo 
ww 
eo 

mm 


016506 


016510 


MACY11 Rye ao 
-JUL-80 1 


104040 
104414 


104400 


012737 


07-JUL-80 
5:29 


000004 
000357 


000031 
016510 


000012 
004000 
027066 


000053 
000002 


000004 
000357 
000020 


000004 


000052 001226 


001226 
001216 
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BASIC RECEIVER TESTS 


2$: 


3$: 


TST31: 


2$: 


TST32: 


;ERROR, 
;SCOPE THIS TEST 


—_—_————————— ee ee ee ee + — ee eee 


;PUT ‘'FOUND'’ IN R4 
;CLEAR UNWANTED BITS 
:PUT "'EXPECTED'’ IN RS 
;1S INRDY CLEARED? 


INRDY IS NOT CLEARED 


seeeeeeetetereererereeeeenee TEST 5] seeeeeaneararerenereenerene 
;*DDCMP BASIC RECEICER TEST 

>*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 0 

;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


SRRARAAAAEAARERAAAAAE THERA REAAAAAAAAAEARARAEAAAAAAAA AAA AAAS 


; Test 31 

MOV #31,TSTNO 
MOV #TST32,NEXT 
MSTCLR 

MOV #12,R2 

MOV #B1T11,(R1) 
= PC,CHAR 
DATACLK, 53 
TIMER, 

ROMCLK 

021244 

MOV 4(R1),R4 
BIC #357,R4 
MOV #B1T4,R5 
CMPB R5,R4 

BEQ 1$ 

HLT 40 

ROMCLK 

021204 

MOV 4(R1),R4 
CLR R5 

CMPB R5,R4 

BEQ e$ 

HLT 10 

SCOPE 


;ERROR, 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 

;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
;SET LINE UNIT LOOP 

;LOAD SILO WITH 3 SYNCS 

;AND THE CHARACTER 0 


>SINGLE CLOCK THE DATA 
;WAIT FOR INRDY 

‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LU 12 
“PUT "'FOUND'’ IN R4 

: CLEAR vera BIT 

FP KPECTED" IN R5 
:1S INRDY neET? 


INRDY IS NOT SET 


:NEXT WORD iS INSTRUCTION, ROMCLK PC=5304 
;PORT4 IN DAT 
>PUT ''FOUND'' IN R4 
“PUT EXPECTED’ IN RS 
“WAS A 0 RECEIVED? 


;ERROR, RECEIVED DATA IS WRONG 
;SCOPE THIS TEST 


eee eee aeeciees aoa TEST 32 xeeeereeaeereeerararererene 


;*DDCMP BASIC RECEICER 


TEST 
:*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 125 
eee ts THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 


MITTTTITTITTTTITITITITITITITITT LITTLE 


; TEST 32 


MOV 


#32, TSTNO 


SEQ 0064 


em er we eee 
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CZDME .P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 0065 
3284 016516 012737 016626 001216 MOV #TST33,NEXT 
3285 :R1 CONTAINS BASE DMC11 ADDRESS 
3286 016524 104412 MSTCLR “MASTER CLEAR DMC11 
3287 016526 012702 000012 MOV #12,R2 ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
3288 016532 012711 004000 MOV #BIT11,(R1) : SET LINE UNIT LOOP 
3289 016536 004737 027066 JSR PC,CHA ;LOAD SILO WITH 3 SYNCS 
3290 016542 000125 125 ;AND THE CHARACTER 125 
3291 016544 104415 000053 DATACLK, 53 ;SINGLE CLOCK THE DATA 
3292 016550 104416 000002 TIMER, 2 “WAIT FOR INRDY 
3293 016554 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3294 016556 021244 021244 PORTS LU 1 
3295 016560 016104 000004 MOV 4(R1),R4 :PUT ‘‘FOUND'' IN R4 
3296 016564 042704 000357 BIC #357,R4 ;CLEAR UNWANTED BITS 
01 012705 000020 MOV #BITS,RS ;PUT "EXPECTED'’ IN RS 
Ji 120504 CMPB R5,R4 ;1S INRDY SET? 
0 001401 BEQ 1$ 
01 104040 1s HLT 40 sERROR, INRDY IS NOT SET 
104414 ROMCLK ;NEXT WORD +m INSTRUCTION, ROMCLK PC=5504 
021204 021204 ; PORTS IN DAT 
016104 000004 MOV 4(R1),R4 :PUT ‘‘FOUND'’ IN R4 
012705 000125 MOV #125,R5 ;PUT ‘EXPECTED’ IN RS 
120504 CMPB RS ,R4G = WAS A 125 RECEIVED? 
001401 BEQ 2$ 
104010 HLT 1 sERROR, RECEIVED DATA IS WRONG 
3309 104400 SCOPE ;SCOPE THIS TEST 
3310 
3311 
3312 seeeeeeeerereeererterererene TEST 33 aeeeeeeeaareeererenererener 
33153 : *DDCMP BASIC RECEICER TEST 
3314 >*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 252 
3315 :*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
3316 ITTTITITISIIITITTLIITETTT TITLE 
3317 
3318 ; Test 33 
3319 peer eeeccecee-- 
3320 016626 012737 0000353 MOV #33,TSTNO 
3321 016634 012737 016744 MOV #TST34,NEXT 
3322 ;R1 CONTAINS BASE DMC11 ADDRESS 
3323 016642 104412 MSTCLR “MASTER CLEAR DMC11 
3324 016644 012702 000012 MOV #12,R2 :SAVE REG ADDRESS IN R2 FOR TYPEOUT 
3325 016650 012711 004000 — MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
3326 016654 004737 027066 JSR PC ,CHAR “LOAD ILO WITH 3 SYNCS 
3327 016660 000252 5 :AND Tie CHARACTER 252 
3328 016662 104415 000053 DATACLK, 53 ;SINGLE CLOCK THE DATA 
3329 016666 104416 000002 TIMER, “WAIT FOR INRDY 
3330 0166 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3331 0166 021244 021244 PORTS LU 12 
3332 0166 016104 000004 MOV 4(R1),R4 ;PuT ‘‘FOUND’’ IN m 
3333 0167 042704 000557 BIC @357,R4 ; CLEAR ee TS 
3334 0167 012705 000020 MOV #BiT4,R5 FP NPECTED" IN RS 
3335 0167 120504 (MPB R5, :1S INRDY SET? 
3336 016714 001401 BEQ 1$ 
3337 016716 104040 HLT 40 ;ERROR, INRDY IS NOT SET 
3338 016720 1$ 
3339 016720 106414 ROMC(LK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
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P11 01-JUL-89 15:29 BASIC RECEIVER TESTS SEQ 0066 
0 016722 021204 021204 coer IN ar? 
1 016724 016104 000004 MOV "FOUN 4 
¢ 0167350 012705 000252 ‘PUT EXPECTED" IN R5 
0167 120504 “WAS A 252 RECEIVED? 
4 016736 001401 
5 016740 104010 ;ERROR, RECEIVED DATA IS WRONG 
° 016742 104400 2$: ;SCOPE THIS TEST 
8 
9 seeeeererererereeerrarereren TEST 54 teeeeeerereretarereerereree 
0 ;*DDCMP BASIC RECEICER TEST 
1 :*SYNC UP RECEIVER AND SINGLE CLOCK THE CHARACTER 377 
2 ;*VERIFY THAT IN RDY IS SET, AND THAT THE CHARACTER WAS RECEIVED 
3 PPITITIIIIIITISIIII LITT TILT LLL LLL 
4 
Z ; TEST 34 
7 016744 012737 000034 001226 TST34: MOV #34 ,TSTNO 
016752 012737 017062 001216 MOV #TST35,NEXT 
;R1 CONTAINS BASE DMC11 ADDRESS 
016760 104412 MSTCLR ;MASTER CLEAR DMC11 
016762 012702 000012 MOV #12,R2 ;SAVE REG ADDRESS IN R2 FOR TYPEOUT 
6766 012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
016772 004737 027066 JSR PC,CHAR ;LOAD SILO WITH 3 SYNCS 
016776 000377 377 ;AND THE CHARACTER 377 
017000 104415 000053 DATACiK, 53 ; SINGLE ‘et THE DATA 
017006 104416 000002 TIMER, 2 “WAIT FOR INRDY 
017010 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017012 021244 021244 :PORT4 LU 12 
9 017014 016104 000004 MOV 4(R1),R4 ;PUT ‘'FOUND'' IN R4 
0 017020 042704 000357 BIC #357,R4 ;CLEAR UNWANTED BITS 
1 017024 012705 000020 MOV #BIT4,RS ;PUT “‘EXPECTED’’ IN R5 
2 017030 120504 CMPB R5,R4 :1S INRDY SET? 
3 017032 001401 BEQ 1$ 
4 017034 104040 HLT 40 ;ERROR, INRDY IS NOT SET 
5 017036 1$: 
6 017036 104414 ROMCLK ;NEXT WORD +f INSTRUCTION, ROMCLK PC=5504 
7 017040 021204 021204 ;PORT4 IN DAT 
8 017042 016104 000004 MOV 4(R1),R4 ;PUT ‘‘FOUND'' IN R4 
017046 012705 000377 MOV #377,R5 ;PUT “‘EXPECTED’’ IN R5 
017052 120504 CMPB R5,R4 “WAS A 377 RECEIVED? 
1 017054 001401 BEG 2$ 
2 017056 104010 HLT 10 ;ERROR, RECEIVED DATA IS WRONG 
3 017060 104400 2$: SCOPE ;SCOPE THIS TEST 
peeeeeeettreererereteeerenee TEST 35 exeeeererereeeeeeerererereeet 
;*DDCMP DATA TEST 
:*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 
:*CHECKING EACH CHARACTER AS IT IS RECEIVED 
PETITITITITI TITEL TITTLE TICE ITT TTS Tee TTT rrr 
S308 ; TEST 35 
017062 012737 000035 001226 15135: MOV #35, TSTNO 
017070 012737 017212 001216 MOV #TST36,NEXT 
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.P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 0067 
:R1 CONTAINS BASE DMC11 ADDRESS 
017076 104412 MSTCLR “MASTER CLEAR DMC11 
017100 005037 027504 CLR SCHAR :START BINARY COUNT AT ZERO 
017104 005037 027506 CLR STUFLG “CLEAR BITSTUFF FLAG 
017110 B02 008 CLR R2 -R2 IS ‘EXPECTED’ DATA 
017112 012703 000073 MOV #73,R3 -R3 IS CHARACTER COUNT 
017116 012711 004000 MOV #B1T11,(R1) “SET LINE UNIT LOOP 
017122 004737 027244 JSR PC,SILOLD “LOAD SILO WITH COUNT PATTERN 
017126 104415 000043 DATACLK, 43 >SYNC RECEIVER AND GET IT ACTIVE 
017132 104415 000730 1$: DATACLK, 730 CLOCK IN 73 CHARACTERS 
017136 004737 027510 4$: JSR PC, INRDY ;WALT FOR INRDY 
017142 104414 ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
017144 021204 021204 “PORT4 IN DATA 
017146 016104 000004 MOV 4(R1),R4 *PUT FOUND" IN RG 
017152 010205 MOV R2,R5 >PUT “‘EXPECTED'' IN RS 
017154 120504 CMPB R5,R4 1S DATA CORRECT? 
017156 001401 BEQ 2$ “BR IF YES 
017160 104010 HLT 10 :DATA ERROR 
017162 005202 2$: INC R2 NEXT CHARACTER 
017164 022702 000400 CMP #400,R2 ;ALL DONE? 
017170 001407 BEQ 3$ ;BR IF YES 
017172 005303 DEC R3 :DECREMENT CHanae TER COUNT 
017174 001360 BNE 4$ :BR IF SILO NOT EMP 
017176 004737 027244 JSR PC,SILOLD sLOAD SILO WITH MORE "or COUNT PATTERN 
017202 012703 000073 MOV #73,R3 RELOAD CHARACTER COUNT 
017206 000751 BR 1$ ; CONTINUE 
017210 1044060 3$: SCOPE SCOPE THIS TEST 


seekeeeeeeeeettettrereeeeees TEST 36 weeeeeeeeeeeereeeeeeererene 
;*DDCMP DATA TEST 

:*THIS TEST SINGLE STEPS A BINARY COUNT PATTERN 

s*CHECKING EACH CHARACTER AS IT IS RECEIVED 

:*THIS TEST IS EXACTLY THE SAME AS THE LAST TEST, 

pen eb LINE UNIT LOOP IS SET IN LU REGISTER 12 


'MARBRABRBBBBBRABAABRARARARBRARARARARRRRRR RR RRR RR RRR RRR RR RARA RRA RR ARRAS SSD SD S| 


; TEST 36 

017212 012737 000036 001226 TST36: MOV #36,TSTNO 
017220 012737 017352 001216 MOV #TST37,NEXT 

:R1 CONTAINS BASE DMC11 ADDRESS 
017226 104412 MSTCLR ;MASTER CLEAR DMC11 
017230 005037 027504 CLR SCHAR :START BINARY COUNT AT ZERO 
017234 005037 027506 CLR STUFLG ;CLEAR BITSTUFF FLAG 
017240 005002 CLR R2 "R2 1S “EXPECTED'’ DATA 
017242 012703 000073 MOV #73,R5 “R3 1S CHARACTER COUNT 
017246 005011 CLR (R1) -CLEAR LU LOOP IN MAINT REG 
017250 012761 000040 000004 MOV #B1T5,4(R1) ;LOAD PORTS 
017256 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
017260 122112 122112 :SET LU LOOP IN LU REG 12 
017262 004737 027244 JSR PC,SILOLD >LOAD SILO WITH COUNT PATTERN 
017266 104415 000043 DATACLK, 43 >SYNC RECEIVER AND GET IT ACTIVE 
017272 104415 000730 1$: DATACLK, 730 “CLOCK IN 73 CHARACTERS 
017276 004737 027510 4$: JSR PC, INRDY “WAIT FOR INRDY 
017302 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


ee | ee ee eee ee A A ATT 
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CZDME .P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 0068 
3452 017304 021204 021204 a's IN DATA 
3453 017306 016104 000004 MOV 4(R1),R4 : PUT FOUND’ IN RG 
3454 017312 010205 MOV R2,R5 “PUT “EXPECTED'’ IN R5 
3455 017314 120504 CMPB R5,R4 :1S DATA CORRECT? 
3456 017316 001401 BEQ 2$ “BR IF YES 
3457 017320 104010 HLT 10 ;DATA ERROR 
3458 017322 005202 2$: INC R2 sNEXT CHARACTER 
3459 017324 022702 000400 CMP #400 ,R2 ;ALL DONE? 
3460 017330 001407 BEQ 3$ ;BR IF YES 
3461 017332 005303 DEC R3 ;DECREMENT yg COUNT 
3462 017334 001360 BNE 4$ ;BR IF SILO NOT EMP 
3465 017336 004737 027244 JSR PC,SILOLD ;LOAD SILO WITH AORE "oF COUNT PATTERN 
3464 017342 012703 000073 MOV #73,R3 : RELOAD CHARACTER COUNT 
3465 017346 000751 BR 1$ ; CONTINUE 
rg: 017350 104400 3$: SCOPE ;SCOPE THIS TEST 
3468 
3469 seeeeeeeeeeeeeeettteeeeeeeee TEST 37 eeeereeerenraeeeereenererere 
3470 : * TRANSMITTER MARK TEST 
3471 : SINGLE CLOCK 3 SYNCS AND A 301 AND 20 EXTRA 
3472 >*CLOCK TICKS, VERIFY THAT A 301, A 377 AND A 377 
3473 ; *WERE RECEIVED INDICATING THAT THE TRANSMITTER WENT 
3474 #10 A MARK STATE FOR 16 BITS WHEN OUT SILO WAS EMPTY 
3475 SRR ARRETEAAAA ARETE AAA e Kee Ke KAT eRe AK eeKt ete teeter eteeeeeet 
3476 
3477 s YEST Sr 
3478 pee eceecesee-- 
3479 017352 012737 000037 001226 1TST37: MOV #37,TSTNO 
3480 017360 012737 017512 001216 MOV #TST4O,NEXT 
3481 :R1 CONTAINS BASE DMC11 ADDRESS 
3482 017366 104412 MSTCLR ;MASTER CLEAR DMC11 
3483 017370 012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
3484 017374 004737 027066 JSR PC,CHAR ;LOAD SILO WITH 3 SYNCS 
3485 017400 000301 301 ;AND A 301 
3486 017402 104415 000073 DATACLK, 73 -CLOCK THE 301 IN AND 20 EXTRA TICKS 
3487 017406 004737 027510 JSR PC, INRDY “WALT FOR INRDY 
3488 017412 104414 ROMCLK ;NEXT WORD it. INSTRUCTION, ROMCLK PC=55304 
3489 017414 021204 021204 ;PORT4 IN DAT 
3490 017416 016104 000004 MOV 4(R1),R4 -PUT ‘'FOUND'' IN R4 
3491 017422 012705 000301 MOV #301,R5 = PUT EXPECTED’ IN RS 
3492 017426 120504 CMPB R5,R4 ;WAS A 301 RECEIVED? 
3493 017430 001401 BEG 1$ 
3494 017432 104010 HLT 10 sERROR FIRST CHARACTER INCORRECT 
3495 017434 004737 027510 1$: JSR PC, INRDY “WALT FOR INRDY 
3496 017440 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
3497 017442 021204 021204 PORTS IN DATA 
3498 017444 016104 000004 MOV 4(R1),R4 :PUT ‘‘FOUND'’ IN R4 
3499 017450 012705 000377 MOV #377,R5 ;PUT “‘EXPECTED’’ IN R5 
3500 017454 120504 CMPB R5,R4 “WAS A 377 RECEIVED? 
3501 017456 001401 BEQ 2$ 
3502 017460 104010 HLT 10 sERROR, 377 WAS NOT RECEIVED 
3503 017462 004737 027510 2$: JSR PC, INRDY “WAIT FOR INRDY 
3504 017466 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
3505 017470 021204 021204 :PORT4 IN DATA 
506 017472 016104 000004 MOV 4(R1) ,R4 ;PUT ‘FOUND’ IN 
3507 017476 012705 000377 MOV #377,R5 :PUT ““EXPECTED’ i" R5 
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BASIC RECEIVER TESTS 


3$: 


TST40: 


3$: 


CMPB R5,R4 
BEQ 3$ 
HLT 10 
SCOPE 


;WAS A 377 RECEIVED? 


;ERROR, 377 WAS NOT RECEIVED 
;SCOPE THIS TEST 


seeeeererereeeeerrererteeeee TEST 40 tereerenerererarerenenrrete 


:*CABLE TURNAROUND TEST 
>*CLEAR LINE UNIT LOOP, 


SET DIR 
:*VERIFY (HAT RING ANDODEM READY ARE SET 
;*CLEAR DTR, VERIFY THAT MRDY IS CLEARED 


: |RRHeeRRRHEHHHTEeHeHeeeHeekeeetetaeeeeeteeeteeeeeteneeeeeteneeeeest 


: TEST 40 

MOV #40,TSTNO 
MOV #TST41, NEXT 
MSTCLR 

BIT #BIT13,STATI 
BNE +12 

BIT #BIT14,STATI 
BEQ § 


CLR (R1) 


MOV #100,4(R1) 
ROMCLK 

122113 

TIMER, 2 

ROMCLK 

021264 

MOV 4(R1),R4 
BIC #23,R4 

MOV #310,R5 
BIT #BIT135,STAT1 
BEQ . +6 

BIC #BIT7,R5 
BIT WE1T2, STATS 
BEQ 3$ 

BIC #BIT7,R5 
CMP R5,R4 

BEQ 1$ 

CMPB R4,R5 

BEQ 2% 

HLT 11 

CLR 4(R1) 
ROMCLK 

122113 


TIMER, 2 


>R1 CONTAINS BASE DMC11 ADDRESS 

;MASTER CLEAR DMC11 

>I1S LINE UNIT M8202? 

:BR IF YES (DO TEST EVEN IF NO LOOP=-BACK CONN) 
:1S TURNAROUND CONNECTOR ON? 

:SKIP TEST IF NO 


; CLEAR Th UNIT LOOP 
;LOAD PORT4 
eT oR IS INSTRUCTION, RGACLK PC=5504 


WAIT 
mrt won 18 INSTRUCTION, ROMCLK PC=5304 
PuT FOUND IN RG 
CLEAR JUNK 

GET EXPECTED. 

1S LINE UNIT M8202? 


NO RING ON M8202 


IS THIS V.55 MODEM? 
NO THEN GO AHEAD. 


YES-NO RING ON V.355 MODEM 
ARE RING AND MODEM READY SET? 


+++4+NF W 


; WARNING! IF V.35 AND AUTO STARTED, 


YOU WILL GET THIS ERROR. YOU MUST 
MANUALL NASWER THE QUESTIONS FOR V.55. 
ARE RING AND MRDY CLEAR? 


WARNING! YOU MAY GET THIS ERROR IF V.55 
AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
ALL QUESTIONS IF V.35. 
;ERROR, MRDY NOT SET 
;CLEAR PORT4 
zMEXT at IS INSTRUCTION, ROMCLK PC=5304 
L 


ee ee ee eee - —_ oe we ~ <_< = 


SEQ 0069 
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CZDME .P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 0070 
017666 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3565 017670 021264 021264 -PORT4 LU13 
3566 017672 016104 900004 MOV 4(R1),R4 ; PUR FOUND IN RG ++ ONE W 
3567 017676 042704 000023 BIC #23,R4 ; STRIP JUNK 
3568 017702 005005 CLR R5 ; SET EXPECTED. 
3569 017704 032737 020000 001366 BIT #BITI3,STATI ; IS THIS A 8202? 
3570 017712 001402 BEQ . +6 
3571 017714 052705 000010 BIS WBIT3,R5 ; YES THEN EXPECT MRDY SET. 
3572 017720 032737 000004 001372 BIT #BIT2,STATS ; IS THIS v.35? 
3573 017726 9001402 BEQ 4$ 
3574 017730 042704 000200 BIC WBIT7,R4 
3575 017734 L$: 
3576 017734 120405 CMPB R4,RS ; ARE RING AND MRDY CLEAR? 
3577 017736 001401 REQ 2$ 
3578 ; WARNING! YOU MAY GET THIS ERROR IF V.55 
3579 ; AND AUTOSTART. YOU MUST MANNUALLY ANSWER 
3580 ; ALL QUESTIONS IF v.35. 
3581 017740 104011 HLT 17 ;ERROR, MRDY NOT CLEAR 
s268 017742 104400 2$: SCOPE ;SCOPE THIS TEST 
3584 
3585 seeeeeeererereerererererenee TEST 4] teetetenveceererererererere 
3586 ;*CABLE TURNAROUND TEST 
3587 ;*CLEAR LINE UNIT LOOP, LOAD OUT DATA SILO 
588 ;*VERIFY THAT ALL MODEM SIGNALS ARE SET 
3589 se Reeeeeeeeeeeeeeteteteteneeretteetenateteteneeterereteeterere 
590 
3591 TEST 41 
3592 per erescecco--- 
3593 017744 012737 000041 001226 TST41: MOV #41,TSTNO 
3594 017752 012737 020140 001216 MOV #TST42,NEXT 
3595 ;R1 CONTAINS BASE DMC11 ADDRESS 
596 017760 104412 MSTCLR ;MASTER CLEAR DMC11 
3597 017762 032737 020000 001366 BIT ot | Ae STAT! ;1S LINE UNIT M8202? 
3598 017770 001004 BNE ;BR IF YES (DO TEST EVEN IF NO LOOP-BACK CONN) 
599 017772 032737 040000 001366 BIT pe1116, STATI ;1S TURNAROUND CONNECTOR ON? 
020000 001456 BEQ $ ;SKIP TEST IF NO 
3601 020002 012711 004000 MOV #B1T11,(R1) ;SET LINE UNIT LOOP 
3602 020006 012761 000100 000004 MOV #100, 4(R1) ;LOAD PORTS 
3603 020014 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
3604 020016 122113 122113 ithe ALL MODEM SIGNALS,EXCEPT DIR 
3605 020020 104416 000002 TIMER, 2 
36 020024 012761 000001 000004 MOV #1,4(R1) sVOAD PORT4 
3607 020032 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3608 020034 122111 122111 ;SET SOM 
3609 020036 004537 030152 JSR RS,MESLD “FILL OUT DATA SILO 
3610 020042 030434 ME SDAT “WITH 64 CHARACTERS 
3611 020044 000101 64, 
3612 020046 012700 000050 MOV #50,R0 ;PREPARE FOR DELAY 
3613 020052 005011 CLR (Q1) ;CLEAR LINE UNIT LOOP 
3614 020054 2$: 
3615 020054 104414 ROMCLK ;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
3616 020056 021264 021264 ;PORT4 LUT 
3617 020060 016104 000004 MOV 4(R1),R4 “PUT FOUND" IN RG 
3618 020064 042704 000023 BIC #23,R4 * CLEAR UNWANTED BITS 
3619 020070 012705 000354 MOV #354 ,R5 “PUT EXPECTED’ IN RS 
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CZ7DME.P11 01-JUL-80 1 BASIC RECEIVER TESTS SEQ 0071 
3620 020074 032737 000004 001372 BIT WBIT2, STATS ; IS THIS v.35? 
3621 020102 001402 BEQ 40$ 
3622 020104 642705 000200 BIC #BIT7,R5 ; YES THEN GET RID OF RING 
3623 020110 032737 020000 001366 40$: BIT #B1T13,STATI ; IS THIS M8202? 
3624 020116 001402 BEQ 4$ 
3625 020120 042705 000200 BIC #BI1T7,R5 
3626 020124 4$: 
3627 020124 120504 CMPB R5,R4 ;COMPARE EXPECTED AND FOUND 
3628 020126 001403 BEQ 1$ "BR IF OK 
3629 020130 005300 DEC RO ;DEC DELAY COUNT 
3630 020132 001350 BNE 2$ ;BR IF NOT ZERO 
3631 020134 104011 HLT 11 “ERROR, ALL SIGNALS ARE NOT SET 
3632 ; WARNING THIS TEST WILL FAIL IF YOU 
3633 ; DON'T MANUALLY ANSWER QUESTIONS IF 
3634 : YES HAVE V.35. 
3635 020136 104400 1$: SCOPE ;SCOPE THIS TEST 
3636 
3637 
3638 seeeeeeeeteteeererereererene TEST G2 reteneetarenereerenerererer 
3639 ;*TEST OF CRC OPERATION 
3640 ;*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
3641 :*0, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
3642 :*TEST TRANSMITTER FIRST THEN THE RECEIVER BC* 
3643 SP RRAARERAAAAR ETAT HAE T eee eeeKAKeeteeeeeeeetenereteteeererere 
3644 
3645 ; TEST 42 
3646 pooeocrcre----- 
3647 020140 012737 000042 001226 TST42: MOV #42, TSTNO 
3648 020146 012737 020454 001216 MOV #1ST43,NEXT 
3649 020154 012737 020170 001220 MOV #64$, LOCK 
3650 :R1 CONTAINS BASE DMC11 ADDRESS 
3651 020162 104412 MSTCLR ;MASTER CLEAR DMC11 
3652 020164 012711 004000 MOV #B1T11,(R1) ;SET LU LOOP 
53 020170 004737 030214 64$: JSR PC,CLRIO ; CLEAR Bcc REGISTERS 
3654 020174 005000 CLR RO ;START SHIFT COUNTER AT ZERO 
3655 020176 012737 120001 027650 MOV #CRC16,XPOLY “LOAD POLYNOMIAL FOR SOFTWARE BCC 
3656 020204 012737 000000 020244 MOV #0,66$ ;LOAD CHAR FOR SOFTWARE BCC 
3657 020212 005037 020246 CLR 67% ;CLEAR OLD SOFTWARE BCC 
3658 020216 004737 027654 JSR PC,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
3659 020222 000000 0 ;AND THE CHARACTER 0 
3660 020224 104415 000021 DATACLK, 21 ;GET TRANSMITTER ACTIVE 
3661 020230 104415 000001 65$: DATACLK, 1 ;SHIFT BCC ONCE 
3662 020234 005200 INC RO ;BUMP SHIFT COUNT 
3663 020236 004537 027544 JSR RS,SIMBCC ;CALCULATE SOFTWARE BCC LSB 
3664 020242 000001 1 “ONE SHIFT 
3665 020244 000000 66$: 0 :DATA CHARACTER 
3666 020246 000000 67$: 0 ;O0LD BCC 
366 020250 103405 BCS 68% : BR IF SOFT BCC LSB IS SET 
020252 004737 027766 JSR PC ,GETQ0 -GET HARDWARE TRANSMITTER BCC LSB 
020256 103006 BCC 69$ ;BR IF HARD BCC LSB IS CLEAR 
0202 104012 HLT 12 ;ERROR, BCC LSB IS SET 
020262 000404 BR 69$ ; CONTINUE 
020264 004737 JSR PC ,GETQ0 : GET HARDWARE TRANSMITTER BCC LSB 
020270 103401 BCS 69$ “BR IF HARD BCC LSB IS SET 
020272 104016 HiT 16 sERROR, HARD BCC LSB IS CLEAR 


em erm ee ee ee 
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13:53 PAGE 72 


BASIC RECEIVER TESTS 


71$: 


72$: 


73$: 
743%: 


75$: 


76$: 


773%: 


TST43: 


64$: 


ROR 


DATACLK, 
DATACLK, 


66$ 
CALBCC ,67$ 


#10,R0 
65$ 


#71$,LOCK 
PC,CLRIO 

RO 
#CRC16,XPOLY 
#0,73$% 


74 
PC,BCCLD 


RO 
RS,SIMBCC 


;OLD BCC 
BR IF SOFT BCC L 


;SHIFT SOFT DATA 
:LOAD OLD SOFT BCC 
;DONE Y y At 


hy 
“BR IF NOT DONE 
; SCOPE SUBTEST (SWO9=1) 
:NEW SCOPE 1 


:CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 0 

;GET RECEIVER ACTIVE 


;SHIFT BCC ONCE 

;BUMP SHIFT COUNT 

;CALCULATE SOFTWARE BCC LSB 
SONE SHIFT 

;DATA CHARACTER 


SB IS SET 
;GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS CLEAR 
;ERROR, BCC LSB IS SET 


;: CONTINUE 

:GET HARDWARE RECEIVER BCC LSB 
;BR IF HARD BCC LSB IS SET 
;ERROR, BCC LSB IS CLEAR 


;SHIFT SOFT DATA 
;LOAD OLD SOFT BCC 


;DONE YET? 

;BR IF NOT DONE 

;SCOPE SUBTEST (SW09=1) 
;SCOPE THIS TEST 


seeeeeeeereerererereeeerenee TEST 43 xeeaeeeeeeereeerereererenet 


:*TEST OF CRC OPERATION 
;*USING THE CRC16 POLYNOMIAL, 


SINGLE CLOCK Hs CHARACTER 


;*377, VERIFY THE LSB OF THE BCC ON EACH SHIF 
S*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 


. REAR EEEAREAAATAEARAAAAAAARAEARAKAAAAAARAERAAARAAKARERARAAERAE EAA ES 


; TEST 43 

MOV #43, TSTNO 
MOV #TST44 NEXT 
MOV #64$,L0CK 
MSTCLR 

MOV #B1T11,(R1) 
JSR PC,CLRIO 

CLR RO 

MOV #CRC16,XPOLY 
MOV #377 ,66$%; 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 

;SET LU LOOP 

;CLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 


8 ee ee ee ae —_—— 


SEQ 0072 


—— — — 


- ee ee ee 
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005037 


104016 
006037 


104017 
006037 


104400 


020562 
027654 


000021 
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027544 


027766 
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020560 
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000010 


020640 
030214 
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027654 


000032 
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027544 


030000 


030000 


020714 
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020562 


020716 
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BASIC RECEIVER TESTS 


65$: 


66$: 
67$: 


68$: 


69$: 


71$: 


72%: 


73$: 
743: 


75$: 


76$: 


77%: 


CLR 67$ 

JSR PC,BCCLD 
377 

DATACLK, 21 
DATACLK, 1 
INC RO 

- RS,SIMBCC 
0 

0 

BC $ 

JSR PC ,GETQO 
BCC $ 

HLT 12 

Be $ 

JSR PC ,GETQO 
BCS $ 

HLT 16 

ROR 66$ 

MOV CALBCC,67$% 
CMP #10,R0 

BNE 65$ 

SCOP 1 

MOV #71$,LOCK 
JSR PC,CLRIO 
CLR RO 

MOV #CRC16,XPOLY 


MOY #377,73$; 
743 
$39 PC,BCCLD 


DATACLK, 32 
DATACLK, 1 
INC RO 

JSR R5,SIMBCC 


;CLEAR OLD SOFTWARE BCC 


“LOAD OUT SILO WITH 2 SYNCS 


;AND THE CHARACTER 377 
GET TRANSMITTER ACTIVE 


;SHIFT BCC ONCE 
;BUMP SHIFT COUNT 
;CALCULATE SOFTWARE BCC LSB 
ONE SHIFT 

;DATA _—— 


;OLD BC 
;BR IF 


SOFT BCC LS 
;GET HARDWARE TRANSMITTER BCC LSB 


B | 


S 


SET 


;BR IF HARD BCC LSB IS CLEAR 


;DONE Y 
;BR IF N 


NOT DONE 
; SCOPE SUBTEST (SWO9=1) 


;SHIFT SOFT DATA 
; LOAD ae BCC 


:NEW SCOPE 1 


SCLEAR BCC REGISTERS 

;START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 
;LOAD OUT SILO WITH 2 SYNCS 
;AND THE CHARACTER 377 

;GET RECEIVER ACTIVE 

; SHIFT BCC a 
;BUMP SHIFT COUN 


;ERROR, BCC LSB IS SET 
; CONTINUE 
;GET HARDWARE TRANSMITTER BCC LSB 
:BR IF HARD BCC LSB 


IS SET 
;ERROR, HARD BCC LSB IS CLEAR 


; CALCULATE SOFTWARE BCC LSB 
:ONE SHIFT 
;DATA CHARACTER 


ty BCC 


CONT INU 


:GET HARDWARE RECE 
;BR IF HARD BCC LS 
;ERROR, BCC LSB IS C 


;SHIFT SOFT DATA 


;LOAD OL 
;DONE YET 
“BR IF 


NOI DONE 
;SCOPE SUBTEST (SWO9=1) 


:SCOPE T 


D. SOFT BCC 


HIS TEST 


I 
B 


SEQ 0073 


_ _— 2 _—— 





CZ0ME MACY11 30A(1052) O7-JUL-80 13:53 PAGE 74 
CZDME .P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 0074 
3788 seeeeeeeeeeeeererereteeeeene TEST 64 teeaatarereererereeerereres 
3789 ;*TEST OF CRC OPERATION 
3790 >*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
3791 ;*125, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
3792 ;*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 
3793 S RARE AREHTAEAHAAAATAAAAAAAEAAA HARRAH RRARHAHEREAAHeKAAA ATE eHee 
3794 
3795 ; TEST 44 
3796 ee eeeeeeeccee- 
3797 020770 012737 000044 001226 TST44: MOV #44,TSTNO 
3798 020776 012737 021304 001216 MOV #TST45,NEXT 
3799 021004 012737 021020 001220 MOV #64$,L0CK 
3800 ;R1 CONTAINS BASE DMC11 ADDRESS 
3801 021012 104412 MSTCLR ;MASTER CLEAR DMC11 
3802 021014 012711 004000 MOV #B1T11,(R1) ;SET LU LOOP 
3803 021020 004737 030214 64$: JSR PC,CLRIO ;CLEAR BCC REGISTERS 
3804 021024 005000 CLR RO ;START SHIFT COUNTER AT ZERO 
3805 021026 012737 120001 027650 MOV #CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
3806 021034 012737 000125 021074 MOV #125,66$; ;LOAD CHAR FOR SOFTWARE BCC 
3807 021042 005037 021076 CLR 67$ ;CLEAR OLD SOFTWARE BCC 
3808 021046 004737 027654 JSR PC,BCCLD :LOAD OUT SILO WITH 2 SYNCS 
3809 021052 000125 125 ;AND THE CHARACTER 125 
3810 021054 104415 000021 DATACLK, 21 ;GET TRANSMITTER ACTIVE 
3811 021060 104415 000001 65$: DATACLK, 1 ;SHIFT BCC ONCE 
3812 021064 005200 INC RO ;BUMP SHIFT COUNT 
3815 1066 004537 027544 JSR RS,SIMBCC ;CALCULATE SOFTWARE BCC LSB 
3814 021072 000001 1 ;ONE SHIFT 
3815 021074 000000 66$: 0 ;DATA CHARACTER 
3816 021076 000000 67$: 0 ;OLD BCC 
3817 021100 103405 BCS ;BR IF SOFT BCC LSB IS SET 
3818 021102 004737 027766 JSR PC ,GETQO ;GET HARDWARE TRANSMITTER BCC LSB 
3819 021106 103006 BCC ;BR IF HARD BCC LSB IS CLEAR 
3820 021110 104012 HLT 12 ;ERROR, BCC LSB IS SET 
3821 021112 000404 BR ; CONTINUE 
3822 021114 004737 027766 68$: JSR PC ,GETQ0 ;GET HARDWARE TRANSMITTER BCC LSB 
3825 021120 103401 BCS ;BR IF HARD BCC LSB IS SET 
3824 021122 104016 HLT 16 ;ERROR, HARD BCC LSB IS CLEAR 
3825 021124 69$: 
3826 021124 006037 021074 ROR 66$ ;SHIFT SOFT DATA 
3827 021130 013737 027652 021076 MOV CALBCC,67$% ;LOAD OLD SOFT BCC 
3828 021136 022700 000010 CMP #10,R0 ;DONE YET? 
3829 021142 001546 BNE 65$ ;BR IF NOT DONE 
3830 021144 104401 SCOP ;SCOPE SUBTEST (SW09=1) 
3831 021146 012737 021154 001220 MOV #71$,LOCK ;NEW SCOPE 
3832 021154 004737 030214 71$: JSR PC,CLRIO ;CLEAR BCC REGISTERS 
3833 021160 005000 CLR RO ;START SHIFT COUNTER AT ZERO 
3834 021162 012737 120001 027650 MOV #CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFTWARE BCC 
3835 021170 012737 000125 021230 MOV #125,75$; ;LOAD CHAR FOR SOFTWARE BCC 
3836 021176 005057 9021232 CLR 74% ;CLEAR OLD SOFTWARE BCC 
3837 021202 004737 027654 JSR PC,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
3838 021206 000125 125 ;AND THE CHARACTER 125 
3839 021210 104415 000032 DATACLK, 32 ;GET RECEIVER ACTIVE 
3840 021214 104415 000001 72$: DATACLK, 1 ;SHIFT BCC ONCE 
3841 021220 005200 INC RO ;BUMP SHIFT COUNT 
3842 021222 004537 027544 JSR RS,SIMBCC ;CALCULATE SOFTWARE BCC LSB 
3843 021226 000001 1 ;ONE SHIFT 
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104016 
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3844 021230 000000 
3845 021232 000000 
3846 021234 103405 

3847 021236 004737 030000 
3848 021242 103006 
3849 021244 104013 
3850 021246 000404 

3851 021250 004737 030000 
3852 021254 103401 
3853 021256 104017 

3854 021260 

3855 021260 006037 021230 

3856 021264 0135737 027652 

3857 000010 

021500 

021302 104400 

3872 021304 012737 000045 

38735 021312 012737 021620 

th 0213520 012737 021334 
3876 0213526 104412 

2 004000 

030214 

120001 

000252 

021412 

027654 

000021 

000001 

027544 

027766 

027766 
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001216 
001220 
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13:53 PAGE 75 
BASIC RECEIVER TESTS SEQ 0075 
73$: 0 ;DATA CHARACTER 
74$: 0 ;0LD BCC 
BCS 75$ ;BR IF SOFT BCC LSB IS SET 
JSR PC ,GETQI ;GET HARDWARE RECEIVER BCC L5B 
BCC 76$ “BR IF HARD BCC LSB IS CLEAR 
HLT 13 ;ERROR, BCC LSB IS SET 
BR 76$ : CONTINUE 
75$: JSR PC ,GETQI ;GET HARDWARE RECEIVER BCC LSB 
BCS 76$ :BR IF HARD BCC LSB IS SET 
_ HLT 17 ;ERROR, BCC LSB IS CLEAR 
ROR 73$ ;SHIFT SOFT DATA 
MOV CALBCC,74$ ; LOAD oe SOFT BCC 
CMP #10,R0 ; DONE y tt 
BNE 72$ “BR IF NOT DONE 
SCOP1 ; SCOPE SUBTEST (SWO9= 1) 
77$: SCOPE ;SCOPE THIS TEST 
SeeeeReeeeeeeeeteeeeetereeee TEST 45 eee eeeeeeeeteeeeteteteteree 
;*TEST OF CRC OPERATION 
:*USING THE CRC16 POLYNOMIAL, SINGLE CLOCK THE CHARACTER 
:#252, VERIFY THE LSB OF THE BCC ON EACH SHIFT 
>*TEST TRANSMITTER FIRST THEN THE RECEIVER BCC 
S RAR RAAAAAEAAAAAA EAA AAA HAART AA AAA A KAKA KAA KKK AAA AeA eet 
; TEST 45 
TST45: MOV #45,TSTNO 
MOV #TST46,NEXT 
MOV #64$,LO0CK 
;R1 CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #B1T11,(R1) ;SET LU LOOP 
64$: JSR PC,CLRIO ;CLEAR BCC REGISTERS 
CLR RO ;sSTART SHIFT COUNTER AT ZERO 
MOV #CRC16,XPOLY ;LOAD POLYNOMIAL FOR SOFTWARE BCC 7 
MOV #252 ,66%: ;LOAD CHAR FOR SOFTWARE BCC 
CLR 67$ ;CLEAR OLD SOFTWARE BCC 
JSR PC ,BCCLD ;LOAD OUT SILO WITH 2 SYNCS 
252 ;AND THE CHARACTER 252 
DATACLK, 21 ;GET TRANSMITTER ACTIVE 
65$: DATACLK, 1 “SHIFT BCC ONCE 
INC RO ;BUMP SHIFT COUNT 
JSR RS,SIMBCC :CALCULATE SOFTWARE BCC LSB 
1 : ONE SHIFT 
66$: 0 sDATA CHARACTER 
67$: 0 ;O0LD BCC 
BCS 68% ;BR IF SOFT BCC LSB IS SET 
JSR PC ,GETQO ;GET HARDWARE TRANSMITTER ot LSB 
BCC 69% “BR IF HARD BCC LSB IS CLEAR 
HLT 12 “ERROR, BCC LSB IS SET 
BR 69% : CONT INUE 
68$: JSR PC ,GETQO :GET HARDWARE TRANSMITTER BCC SB 
BCS t “BR IF HARD BCC LSB IS SET 
HLT 6 ;ERROR, HARD BCC LSB IS CLEAR 
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BASIC RECEIVER TESTS 


69$: 


71$: 


72$: 


73$: 
74$: 


75$: 


76$: 


77$: 


ROR 66% 

MOV CALBCC,67$ 
CMP #10,R0 

BNE 65$ 

SCOP 1 


MOV #71$,L0CK 
JSR ‘oe 


MOV #CRC16,XPOLY 
MOV #252,73$; 
74$ 


JSR PC ,BCCLD 


DATACLK, 32 
, 1 


JSR R5,SIMBCC 


73$ 
MOV CALBCC,74$ 
#10,R0 


LL TT . . 


;SHIFT SOFT DATA 
: LOAD + SOFT BCC 


:BR IF NOT DONE 

;SCOPE SUBTEST (SWO9=1) 
:NEW SCOPE1 
;CLEAR BCC REGISTERS 

:START SHIFT COUNTER AT ZERO 
;LOAD POLYNOMIAL FOR SOFTWARE BCC 
;LOAD CHAR FOR SOFTWARE BCC 
;CLEAR OLD SOFTWARE BCC 

;LOAD OUT SILO WITH 2 SYNCS 

;AND THE CHARACTER 252 

sGET RECEIVER ACTIVE 


COUNT 
;CALCULATE SOFTWARE BCC LSB 
SONE SHIFT 
:DATA CHARACTER 
D BCC 


LD B 
;BR IF SOFT BCC LSB 
;GET HARDWARE RECELV 
:BR IF HARD BCC LSB 
sERROR, BCC LSB IS S$ 
: CONT INUE 
:GET HARDWARE RECEIV 


rm me rr 


;SHIFT SOFT DATA 
:LOAD OLD SOFT BCC 
;DONE YET? 

;BR IF NOT 


;SCOPE SUBTEST (SW09=1) 
:SCOPE THIS TEST 


seeeeeeeeeteererererenereene TEST 466 ttaateaarenereeneeereeenene 


TRANSMITTER CRC TEST 


;*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 
: «COUNT PATTERN, VERIFY THE LSB OF THE TRANSMITTER BCC ON EACH SHIFT 


POOTETTETTTITTITITITITITITITITITITITITI ITLL LL 


; TEST 46 


MOV #46, TSTNO 
MOV #1ST47,NEXT 


MOV #B1T11,(R1) 
CLR R3 
CLR R4 
CLR R5 


C 4$ 
MOV #CRC16,XPOLY 


;R1 CONTAINS BASE DMC11 ADDRESS 

;MASTER CLEAR 

>SET LINE UNIT LOOP 

;ZERO BIT COUNT 

:R4 CONTAINS CHAR TO BE LOADED IN SILO 

=R5 CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
;CLEAR SOFT B 

:LOAD POLYNOMINAL 


DONE 
DMC 11 
l 
CC 


: 
-_-_-- 


SEQ 0076 
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00 
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104021 


006037 
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000400 
000004 


000400 
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021752 


3$: 
4$: 


5$: 


6$: 


9$: 


7$: 


13:53 PAGE 77 
BASIC RECEIVER TESTS 


SEQ 0077 


JSR PC,SYNLD 


; LOAD oc WITH 2 SYNCS, SOM SET 
MOV RG ,4(R1) :PO 


ROMCLK EXT GORD is INSTRUCTION, ROMCLK PC=5304 
122110 sNOAD OUT DAT 

INC RG s ENCRERENT tO. NEXT CHARACTER 

MOV R4,4(R1) “PORTS CHAR 

ROMCLK “NEXT ooRD 1S INSTRUCTION, ROMCLK PC=5304 
122110 LOAD OUT DATA 

INC R4 a IRCRGRENT TO NEXT CHARACTER 

MOV R4,4(R1) “PORTS 

ROMCLK “NEXT DORD. 1S | INSTRUCTION, ROMCLK PC=5304 
122110 :LOAD OUT DAT 

JSR PC,GCOR *WAIT FOR OCOR 

DATACLK,21 CLOCK DATA 

MOV RS,3$ LOAD CHAR FOR SOFT CRC 

DATACLK, 1 SHIFT BCC ONCE 

JSR RS,SIMBCC “CALCULATE SOFT BCC 

1 SOFT SHIFT COUNT 

0 -SOFT CHARACTER 

0 :OLD SOFT BCC 

BCS 5$ :BR IF SOFT BCC LSB IS SET 

JSR PC,GETQO :GET HARDWARE TRANSMITTER BCC LSB 
BCC 6$ -BR IF OK (CLEARED) 

HLT 20 ERROR, BCC LSB WAS SET 

BR 6$ “CONTINUE WITH TEST 

JSR PC ,GETQO :GET HARDWARE TRANSMITTER BCC LSB 
BCS 6$ -BR IF OK (SET) 

HLT a” ERROR, BCC LSB WAS CLEAR 

ROR 3$ SHIFT SOFT DATA 

MOV CALBCC,4$ LOAD OLD SOFT BCC 

INC R3 : INCREMENT BIT COUNTER 


CMP #10,R5 DONE A FULL CHARACTER YET? 


BNE 2$ :BR IF NO 

CLR R3 RESTART BIT COUNTER 

INC R4 : INCREMENT DATA FOR SILO 
CMP #400,R4 “DONE BINARY COUNT YET? 
BLE 9$ “BR IF YES 

MOV R4,4(R1) -PORT4 DATA 

ROMCLK “NEXT BORD 1S INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DAT 

INC R5 : INCREMENT DAT 

CMP #400,R5 “DONE BINARY PATTERN YET? 
BNE 1$ “BR IF NO 

SCOPE SCOPE THIS TEST 


than ae aa TEST 47 weeeeeeeeeeeeeaeeeeeeneeene 
> *RECEIVER CRC TEST 

:*USING THE CRC16 POLYNOMINAL, SINGLE CLOCK A BINARY 

peers PATTERN, VERIFY THE LSB OF THE RECEIVER BCC ON EACH SHIFT 


SRA AAAAEAAAAAAAAATAAATAAARARAARAAEAAAAAAAETAAAAAARAERAAARARAAAE ASA 


; TEST 47 





CZDME MACY11 TOA O3e) 
CZDME.P11 01-JUL-80 15: 
4012 022056 012737 000047 
re HE 022064 012737 0622314 
4015 022072 104412 
4016 022074 012711 004000 
4017 022100 005003 
4018 022102 5004 
4019 022104 005005 
4020 022106 005037 022210 
4021 022112 012737 120001 
4022 022120 004737 030016 
4025 022124 010461 000004 
4024 022130 104414 
4025 022132 122110 
4026 022134 005204 
4027 022136 010461 000004 
4028 022142 104414 
4029 022144 122110 
4030 022146 005204 
4031 022150 010461 000004 
4932 022154 104414 
4033 022156 12211 
4034 022160 004737 026702 
4035 022164 104415 000032 
4036 022170 010537 022206 
4037 022174 104415 000001 
4038 022200 004537 027544 
4039 022204 000001 
4040 022206 000000 
4041 022210 000000 
4042 022212 103405 
4043 022214 737 030000 
4044 022220 103006 
4045 022222 104022 
4046 022224 04 
4047 022226 004737 030000 
4048 022232 103401 
4049 022234 104023 
4050 
4051 022236 
4052 022236 037 022206 
4053 022242 013737 027652 
4054 022250 005203 
4055 022252 022703 000010 
4056 022256 001346 
4057 0222 005003 
4058 022262 005204 
4059 022264 022704 000400 
4060 270 0034 
4061 $e 010461 000004 
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BASIC RECEIVER 


3$: 
4$: 


5$: 


6$: 


9$: 


7$: 


eee eee . oe ee ei 


78 
TESTS 
MOV #47,1STNO 
MOV #TSTSO,NEXT 
:R1 CONTAINS Past DMC11 ADDRESS 
MSTCLR “MASTER CLEAR DMC11 
MOV #B1T11,(81) -SET LINE UNIT LOOP 
CLR R3 :ZERO BIT COUNT 
CLR R4 RG CONTAINS CHAR TO BE LOADED IN SILO 
CLR R5 “RS CONTAINS CHAR CURRENTLY BEING SHIFTED OUT 
CLR 4$ “CLEAR SOFT BCC 
MOV #CRC16,XPOLY “LOAD POLYNOMINAL 
JSR PC,SYNLD “LOAD SILO WITH : SYNCS, SOM SET 
MOV R4,4(R1) “PORT4 CHAR 
ROMCLK >NEXT BORD IS INSTRUCTION, ort PC=5304 
122110 sLOAD OUT DATA 
INC R4 : INCREMENT TO NEXT CHARACTER 
MOV R4,4(R1) “PORTS CHAR 
ROMCLK “NEXT QORD iS INSTRUCTION, POMCLK PC=5304 
122110 ;LOAD OUT DAT 
INC R4 s ANC RERENT TO ANEXT CHARACTER 
MOV R4,4(R1) “PORTS CHA 
ROMCLK “NEXT BORD. +R INSTRUCTION, ROMCLK PC=5304 
122110 :LOAD OUT DAT 
JSR PC,OCOR “WAIT FOR OCOR 
DATACLK, 32 “CLOCK DATA 
MOV R5,3$ LOAD CHAR FOR SOFT CRC 
DATACLK,1 -SHIFT BCC ONCE 
JSR RS,SIMBCC :CALCULATE SOFT BCC 
1 SOFT SHIFT COUNT 
0 SOFT CHARACTER 
0 OLD SOFT BCC 
BCS 5$ :BR IF SOFT BCC LSB IS SET 
JSR PC ,GETQI -GET HARDWARE RECEIVER BCC LSB 
BCC 6$ -BR IF OK (CLEARED) 
HLT 22 ;ERROR, BCC LSB WAS SET 
BR 6$ “CONTINUE WIT! TEST 
JSR PC,GETQI :GET manne RECEIVER BCC LSB 
BCS 6$ -BR IF OK (SET 
HLT 23 -ERROk, BCC $8 WAS CLEAR 
ROR 3$ :SHIFT SOFT DATA 
mn ; CALBCC,4$ :LOAD OLD SOFT BCC 
INC R3 : INCREMENT BIT COUNTER 
CMP #10,R3 “DONE A FULL CHARACTER YET? 
BNE 2% ;BR IF NO 
CLR R3 ;RESTART BIT COUNTER 
INC R4 : INCREMENT DATA FOR SILO 
CMP #400,R4 “DONE BINARY COUNT YET? 
BLE $ -BR IF YES 
MOV R4.4(R1) -PORT4 DAT 
ROMCLK “NEXT 30RD. 1S INSTRUCTION, ROMCLK PC=5304 
122110 LOAD OUT DAT 
INC BS : INCREMENT DATA 
(MP #400,R5 -DONE BINARY PATTERN YET? 
BNE 1$ ;BR IF NO 
SCOPE SCOPE THIS TEST 


SEQ 0078 


—_— + 
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CZDME .P11 01-JUL-80 15:29 BASIC RECEIVER TESTS SEQ 9079 
4068 
4069 
4070 seeeeeereerereerereecereetenr TEST 50 teetereeeerererererecererrt 
4071 S* TRANSMITTER DOCMP CRC TEST 
4072 :*THIS TEST TRANSMITS A FOUR CHARACTER MESSAGE WITH CRC 
4073 *BOTH DATA AND THE BCC ARE VERIFIED IN THE BIT 
4074 “#WINDOW. THE FOUR CHARACTERS ARE 0,125,252, 377 
4075 '*THE TRANSMITTER 1S CHECKED FOR GOING TO A MARK STATE AFTER THE BCC 
4076 S RRRAAHAHEK HTH HH AEE H EKER AHHeAAHKe Kee HKeH AeA eeAteteeteReeetere 
4077 
4078 ; TEST 50 
4079 jeer roeocecoee- 
4080 022314 012737 000050 001226 1ST50: MOV #50,TSTNO 
012737 022646 001216 MOV #TST51,NEXT 
;R1 CONTAINS BASE ro" ADDRESS 
104412 MSTCLR :MASTER CLEAR DMC11 
;LOAD OUT DATA SILO 
012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
012704 030434 MOV MMESDAT,R4 ;LOAD POINTER TO DATA 
005037 022456 CLR 10$ ;CLEAR SOFT BCC 
012700 000004 MOV #4 ,RO “LOAD CHARACTER COUNT 
004737 030016 JSR PC,SYNLD :LOAD 2 SYNCS IN OUT SILO 
004737 027034 JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
004537 030152 JSR R5,MESLD ;LOAD SILO WITH 4 CHAR MESS 
030434 MESDAT ;ADDRESS OF MESSAGE 
00000 ;NUMBER OF CHARACTERS 
004737 030126 JSR PC ,EOM ;LOAD GARBAGE CHARACTER, WITH EOM SET 
004737 026702 JSR PC ,OCOR ;WAIT FOR OCOR 
00500 CLR R3 ;CLEAR BIT COUNTER 
104415 000022 DATACLK,22 ;CLOCK DATA 
112405 12$: MOVB (R4)+,R5 ;LOAD R5 WITH CHAR 
010502 MOV R5,R2 ;LOAD R2 WITH CHAR 
;CHECK FIRST FOUR CHARACTER MESSAGE 
IN THE BIT WINDOW (0,125,252,377) 
012737 120001 027650 MOV #CRC16,XPOLY ;LOAD POLYNOMIAL 
010537 022434 MOV R5,67$ ;LOAD SOFT CHAR FOR BCC 
004537 027544 JSR RS,SIMBCC ;CALCULATE SOFT BCC 
000010 10 ;SHIFT COUNT 
67$: 0 ; CHARACTER 
0000 10$: 0 ;OLD BCC 
4112 013737 027652 922436 MOV CALBCC,10$% ;LOAD SOFT BCC FOR NEXT SHIFT 
4115 104415 000001 64$: DATACLK, 1 ;SHIFT DATA IN TO BIT WINDOW 
4114 106002 RORB R2 ;SHIFT SOFT DATA 
4115 103005 BCC 65% ;BR IF A SPACE 
4116 004737 026650 JSR PC ,GETSI ;LOOK AT BIT + Tre 
4117 103406 BCS «668 :BR IF OK (MARK) | 
4118 104006 HLT 6 ;ERROR, BIT WINDOW WAS A SPACE | 
4119 404 BR 66% ; CONTINUE 
4120 004737 026650 65$: JSR PC ,GETSI ;LOOK AT BIT WINDOW | 
4121 103001 BCC «OS :BR IF OK (SPACE) 
4122 104006 HLT 6 “ERROR, BIT WINDOW WAS A MARK | 
4125 663: | 
| 
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BASIC RECEIVER TESTS 


68$: 


69$: 


70$: 


2$: 


3$: 


4$: 


5$: 


INC R3 

CMP #10,R3 
BNE 64% 
CLR R3 

DEC RO 

BNE 12% 


;BUMP BIT COUNTER 
3+ by 8 BITS YET 


;BR | 
;CLEAR BIT COUNTER 
:DEC CHARACTER COUNT 


“BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
MOV CALBCC,RO ;PUT BCC IN RO 


DATACLK,1 ;SHIFT HARDWARE BCC 
ROR RO ;SHIFT SOFT BCC 
BCC 69% ;BR IF CARRY CLEAR 


JSR PC ,GETSI ;LOOK AT BIT WINDOW 
BCS 70$ BR IF OK (MARK) 


HLT 14 sERROR, CRC WRONG (SPACE) 
RR 70$ : CONTINUE 

JSR PC ,GETSI ;LOOK AT BIT WINDOW 

BCC 70$ ;BR IF OK (SPACE) 

HLT 14 sERROR, CRC WRONG (MARK) 
INC R3 :BUMP BIT COUNTER 


CMP #20,R3 ;FINISHED BCC YET? 
68$ ;BR IF NO 

CLR R3 ;CLEAR BIT COUNTER 

;CHECK TO SEE IF TRANSMITTER IS MARKING 


DATACLK, 1 ;CLOCK TRANSMITTER 

JSR PC,GETSI ;LOOK AT WINDOW 

BCS 3$ ;1T SHOULD BE MARKING 

HLT 24 ;ERROR, BIT WAS A SPACE 

INC R3 ;BUMP BIT COUNTER 

CMP + 1+ . yd 

DATACLK, 10 ;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
R ;CLEAR BIT COUNTER 

DATACLK, “SHIFT OUT NEXT BIT 

JSR ,GETSI ;LOOK AT BIT ett 

BCS +4 :BR IF IT IS A 

HiT 24 ;ERROR, TRANSMITTER IS NOT MARKING 

INC R3 ; INC BIT COUNT 

CMP #20,R5 :DONE YET? 

BNE 4$ ;BR IF NO 

SCOPE ;SCOPE THIS TEST 


aeetguan mapa tae dean TEST 51 eeeeeeeeareeereeerinerrenee 
;*RECEIVER DDOCMP CRC TEST 

s*THIS TEST CLOCKS A FOUR CHARACTER MESSAGE gk _ 

* AND VERIFYS CORRECT DATA RECEPTION AND BCC M 

;*IN BCC MATCH IS CHECKED TO SEE THAT IT IS NOT ASSERTED 

-#UNTIL THE LAST HALF OF THE CRC IS RECEIVED 

see FOUR CHARACTER MESSAGE IS 0,125,252,377 


WYTTTTTOTITETETITETITETITITITITITITITT TTL 


LL ET mee 


SEQ 0080 
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BASIC RECEIVER TESTS 


TST51: 


3$: 


4$: 


ee | ——_ — —_ 


SEQ 0081 


;R1 CONTAINS BASE DMC11 ADDRESS 
sMASTER CLEAR DMC11 


;SET LINE UNIT LOOP 
;LOAD POINTER TO DATA 


;LOAD CHARACTER COUNT 

;LOAD 2 SYNCS OUT SILO 
;WALT FOR OUTRD 

LOAD SILO WITH "4 CHAR MESS 


‘ADDRESS OF MESSAGE 
;NUMBER OF CHARACTERS 


;LOAD GARBAGE CHARACTER, WITH EOM SET 
;WAIT FOR OCOR 

;CLOCK DATA 

;WAIT FOR INRDY 

;NEXT N DATA. INSTRUCTION, ROMCLK PC=5304 


;PUT ‘‘FOUND'' IN R 
;PUT "EXPECTED" IN R5 


ee iF OR RECEIVED DATA 
;DATA ERROR 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


:PUT ‘‘FOUND'’ IN R4 

>CLEAR UNWANTED BITS 

:PUT ‘‘EXPECTED'’ IN RS 

>1S IN BCC MATCH STILL CLEAR? 


;1N BCC MATCH ERROR 


;DEC CHARACTER COUNT 
;BR IF NOT DONE YET 


TO SEE THAT IN BCC MATCH IS SET 


: TEST 51 
MOV #51,TSTNO 
MOV #TST52,NEXT 
MSTCLR 
MOV #BIT11,(R1) 
MOV #MESDAT,R2 
MOV #4 RO 
JSR PC, SYNLD 
JSR PC OUTRDY 
JSR RS, MESLD 
MESDAT 
JSR PC,EOM 

JSR PCOCOR 
DATACLK, 114 

JSR PC, INRDY 
ROMCLE 
021204 
MOV 4(R1) RG 
MOVB  (R2)+.R5 
CMPB sR LRG 
BEQ 1$ 
HLT 10 
ROMCLK 
021244 
MOV &(R1) RG 
BIC #376, RG 
CLR RS 
CMPB sR, RG 
BEQ 4$ 
HLT 15 
DEC RO 
BNE 3g 

CHECK 
SR PC, INRDY 
ROMCLK 
021204 
MOVB 4(R1),TEMP3 
BIC #177460, TEMP 
JSR PC, INRDY 
ROMCLK 
021244 
MOV &(R1) ,R4 
BIC #376, RG 
MOV girs 

CMPB RS .RG 
BEQ 25% 

HLT 15 


;WAIT FOR INRDY 

NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;GET FIRST HALF OF CRC 

;PUT IN TEMPS 

;CLEAR HI BYTE 

“WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


;PUT ‘FOUND’ IN R4 

;CLEAR UNWANTED BITS 
:PUT EXPECTED’ IN RS 
;1S IN BCC MATCH SET? 


; IN BCC MATCH ERROR 


— ee ee eee ee ewe = oe 
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BASIC RECEIVER TESTS 

25$: 
ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021204 ;GET LAST HALF 

2$: SCOPE ;SCOPE THIS TEST 
seeeteneereererereerertereee TEST 52 staerentereaererecenerenerene 
;*DDCMP EOM FUNCTION TEST 
:*#THIS TEST LOADS OUT SILO WITH: 2 SYNCS,4 CHAR MESSAGE ,EOM 
:*4 CHARACTER MESS,EOM. THE DATA STREAM IS CHECKED TO BE 
:#4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT 
;*THE CHARCTERS LOADED WITH EOM SET ARE LOST 
:*ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 
;*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 
;*RECEIVED DATA IS VERIFIED, AND IN BCC MATCH IS CHECKED 
s RRMHRAREHEHHE AHA Ke HAH eee KeKHeKeteteReeteteReeeeeHetenerere 
; TEST Be 

TST52: MOV #52,TSTNO 
MOV #TST53,NEXT 

;R1 CONTAINS BASE DMvi1 ADDRESS 

MSTCLR ;MASTER CLEAR DMC11 
;LOAD OUT DATA SILO 
MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
MOV #MESDAT,RG :LOAD POINTER TO DATA 
CLR 10% ;CLEAR SOFT BCC 
MOV #4 ,RO ;LOAD CHARACTER COUNT 
JSR PC,SYNLD ;LOAD 2 SYNCS IN OUT SILO 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
JSR RS,MESLD sLOAD SILO WITH 4& CHAR MESS 
MESDAT ;ADDRESS OF MESSAGE 
4 ;NUMBER OF CHARACTERS 
JSR PC ,EOM :LOAD GARBAGE CHARACTER, WITH EOM SET 
JSR RS,MESLD ;LOAD FOUR MORE CHARACTERS 
MESDAT ;ADDRESS OF MESSAGE 
4 ;NUMBER OF CHACTERS 
JSR PC ,EOM ;SET EOM 
JSR PC ,OCOR ;WAIT FOR OCOR 
CLR R3 ;CLEAR BIT COUNTER 
DATACLK,22 ;CLOCK DATA 

12$: MOVB (R4)+,RS ;LOAD RS WITH CHAR 
MOV R5,R2 ;LOAD R2 WITH CHAR 
:CHECK FIRST FOUR CHARACTER MESSAGE 
:IN THE BIT WINDOW (0,125,252,577) 
MOV #CRC16,XPOLY ;LOAD POL YNOM! AL 
MOV R5,67$% ;LOAD SOFT CHAR FOR BCC 
JSR RS,SIMBCC ;CALCULATE SOFT BCC 
10 ;SHIFT COUNT 

67%: 0 : CHARACTER 

10$: 0 ;0LD0 BCC 
MOV CALBCC,10% -LOAD SOFT BCC FOR NEXT SHIFT 


SEQ 0082 
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CZ7DRME .P 1 01-yuL-80 15:29 BASIC RECEIVER TESTS SEQ 0083 
4292 023242 104415 000001 64$: DATACLK, 1 -SHIFT DATA IN TO BIT WINDOW 
429 BS 308 106002 RORB R2 ;SHIFT SOFT DATA 
4294 Bs 250 103005 BCC -BR IF A SPACE 
4295 023252 004737 026650 JSR PC GETSI ;LOOK AT BIT WINDOW 
4296 023256 103406 BCS $ “BR IF OK (MARK) 
4297 023260 104006 HLT 6 “ERROR, BIT WINDOW WAS A SPACE 
4298 023262 404 abi 66% : CONTINUE 
4299 023264 004737 026650 65$: JSR PC GETSI ;LOOK AT BIT WINDOW 
4300 023270 103001 rae $ “BR IF OK (SPACE) 
4301 023272 104006 HLT -ERROR, BIT WINDOW WAS A MARK 
4302 023274 66%: 
4303 023274 005703 INC w? :BUMP BIT COUNTER 
4304 023276 022703 900010 cmp #10,R83 ;DONE FULL 8 BITS YET 
4305 023302 001357 BNE 64% ;BR IF NO 
4306 023304 005003 CLR R3 -CLEAR BIT COUNTER 
4307 023306 0053 DEC RO DEC CHARACTER COUNT 
rt + 023310 001335 BNE 12% “BR IF NOT DONE YET 
ri ;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 
4312 023312 013700 027652 MOV CALBCC,RO ;PuT BCC IN RO 
4313 023316 104415 000001 68%: DATACLK,1 - SHIFT HARDWARE BCC 
4314 023322 006000 ROR ;SHIFT SOFT BCC 
4315 023324 103005 BCC 69$ -BR IF CARRY CLEAR 
4316 023326 004737 026650 JSR PC GETS! -LOOK AT BIT vINDOY 
4317 023332 103406 BCS 70% “BR IF OK (MARK 
4318 023334 104014 HLT 14 -ERROR, CRC WRONG (SPACE) 
4319 tht te 000404 RR 70% : CONT INUE 
4320 023340 004737 026650 69%: JSR PC GETSI -LOOK AT BIT WINDOW 
4321 023344 103001 BCC 70% :BR IF OK (SPACE) 
4322 023346 104014 HLT 14 “ERROR, CRC WRONG (MARK) 
4323 023350 70$: 
4324 023350 005203 INC R3 ;BUMP BIT COUNTER 
4325 023352 022703 000020 CMP #20,R3 :FINISHED BCC YET? 
4326 023356 001357 BNE 68% :BR IF NO 
4327 023360 005003 CLR 2 ;CLEAR BIT COUNTER 
4328 023362 012700 000004 MOV #4 RO ;RESET CHARACTER COUNTER 
4329 023366 012704 030434 MOV @MESDAT_ RG LOAD MESSAGE POINTER 
4330 023372 005037 023424 CLR 11$ CLR SOFT BCC 
4331 023376 112405 13$: MOvB (RG)* RS :LOAD CHAR IN RS 
eeet 023400 010502 MOV R5,R2 -LOAD CHAR IN R2 
‘tee :CHECK SECOND MESSAGE IN THE BIT WINDOW (9,125,252,3577) 
4 
4336 023402 012737 120001 027650 MOV @CRC16,KPOLY ;LOAD POL YNOM] AL 
4337 023410 010537 023422 MOV R5S,76$% -LOAD SOFT CHAR FOR BCC 
4338 023414 004537 027544 JSR RS, SIMBCC :CALCULATE SOFT BCC 
4339 023420 000010 10 > SHIFT COUNT 
4340 023422 000000 76$: 0 - CHARACTER 
4341 023424 000000 11$: 0 :;OLD BCC 
4342 os erte 013737 027652 023424 MOV CALBCC,11$ -LOAD SOFT BCC FOR NEXT SHIFT 
4343 0234 104415 000001 7%$: DATACLK, 1 -SHIFT DATA IN TO BIT WINDOW 
4344 023440 106002 RORB R2 ;SHIFT SOFT DATA 
4345 023442 103005 BCC 74% -BR IF A SPACE 
4346 023444 004737 026650 JSR PC GETSI ;LOOK AT BIT WINDOW 
4347 023450 103406 BCS 75$ "BR IF OK (MARK) 
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;ERROR, BIT WINDOW WAS A SPACE 
: CONT I NUE 

;LOOK AT BIT WINDOW 

:BR IF OK (SPACE) 


“ERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 
; DONE = 6 BITS Yer 


;BR IF 
;CLEAR BIT COUNTER 
;DEC CHARACTER COUNT 


BR IF NOT DONE YET 


;CMECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


;PuT BCC IN RO 

:SHIFT HARDWARE BCC 
;SHIFT SOFT BCC 

-BR IF CARRY CLEAR 

;LOOK AT BIT WINDOW 

-BR IF OK (MARK) 

sERROR, CRC WRONG (SPATE) 
; CONTINUE 

;LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 
sERROR, CRC WRONG (MARK) 


;BUMP BIT COUNTER 
FINISHED BCC YET? 


;BR IF NO 
;CLEAR BIT COUNTER 


;CHECK TO SEE IF TRANSMITTER IS MARKING 


HLT 
as 
74%: JSR PC GETSI 
BCC $ 
HLT 4 
75$: 
INC R3 
cmp #'0.R3 
BNE 73$ 
CLR Rs 
DEC RO 
BNE 13$ 
MOV CALBCC,RO 
773: DATACLK,1 
ROR RO 
BCC $ 
JSR PC ,GETSI 
BCS $ 
HLT 14 
AR 79% 
78$: JSR PC ,GETSI 
BCC 79% 
HLT 14 
793%: 
INC R3 
CMP #20,R3 
BNE 77$ 
CLR R3 
2$: DATACLK, 1 
JSR PC,GETSI 
BCS 3$ 
HLT 24 
3$: INC R3 
CMP a7.R3 
BNE 2$ 
DATACLK, 10 
CLR R3 
4$: DATACLK, 1 
JSR PC, ,GETSI 
BCS +4 
HLT 24 
INC Bs 
CMP #20,R3 
BNE 4% 


:CLOCK TRANSMITTER 
>LOOK AT WINDOW 

:1T SHOULD BE MARKING 
-ERROR, BIT WAS A SPACE 
;BUMP BIT COUNTER 


;DONE YET 


;BR IF NO 
;GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 


;CLEAR BIT COUNTER 
;SHIFT OUT NEXT BIT 


“LOOK AT BIT WINDOW 
;BR IF IT IS A MARK 
-ERROR, TRANSMITTER IS NOT MARKING 
; INC BIT COUNT 
;DONE YET? 
;BR IF NO 


;CHECK TO SEE THAT FIRST FOUR erie yr MESSAGE 
;WAS RECEIVED CORRECTLY (0,125,252,577 


DATACLK, 
MOV #4 R35 


:GET LAST BIT IN RECEIVER 
;R3=CHARACTER COUNT 


— _- oe mee 


SEQ 0084 
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4404 023642 012702 0304634 MOV #MESDAT,RZ -LOAD MESSAGE POINTER IN R2 
4405 023646 004737 027510 408: JSR PC, INRDY “WAIT FOR INRDY 
4406 023652 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5306 
4407 023654 021204 021204 
4408 023656 016104 000004 MOV 4(R1),R4 ;PUT "'FOUND'’ IN RG 
4409 023662 112205 MOVB (R2)+_,RS “PUT "EXPECTED'’ IN RS 
4410 023664 120504 CMPB RS RG -1S RECEIVED DATA CORRECT? 
4411 023666 001401 BEQ 41$ “BR IF YES 
4412 023670 104010 HLT 10 “RECEIVE DATA ERROR 
4413 023672 005303 41$: DEC R3 “DEC CHARACTER COUNT 
aie 023674 001364 BNE 40% “BR IF NOT DONE YET 
4416 -CHECK TO SEE THAT IN BCC MATCH IS SET 
need AND THAT THE BCC WAS RECEIVED CORRECTLY 
4419 023676 004737 027510 JSR PC, INRDY “WAIT FOR INRDY 
4420 023702 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4421 023704 021206 021204 “GET FIRST HALF OF CRC 
4422 023706 116137 000004 001252 MOVB 4(R1),TEMP3 “PUT IN TEMP3 
4423 023714 042737 177400 001252 BIC #177400, TEMP3 :CLEAR HI BYTE 
4424 023722 004737 027510 JSR PC, INRDY “WAIT FOR INRDY 
4425 023726 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4426 023730 021244 021264 
4427 023732 010104 000004 MOV 4(R1) RG “PUT "'FOUND'' IN RG 
4428 023736 042704 000376 BIC #376 ,R4 :CLEAR UNWANTED BITS 
4429 023742 012705 000001 MOV #1 ,R5 “PUT EXPECTED’ IN RS 
4430 023746 120504 CMPB ss RRA "1S IN BCC MATCH SET? 
4431 023750 001401 BEQ 50$ 
4432 023752 104015 HLT 15 -IN BCC MATCH ERROR 
4433 023754 50$: 
4434 023754 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4435 023756 021204 021204 “GET LAST HALF 
4436 023760 116137 000004 001251 MOVB 4(R1),TEMP2+1 :PUT IN TEMP2 
4437 023766 042737 000377 001250 BIC #377, TEMP2 “CLEAR LO BYTE 
4438 023774 053737 001250 001252 BIS TEMP2, TEMPS -16 BIT BCC NOW IN TEMP3 
4439 024002 023737 027652 001252 CMP CALBCC,TEMP3  :1S IT CORRECT? 
4ue0 026010 001401 BEQ 42$ -BR IF OK 
ee. 024012 104027 HLT 27 
4 
4443 -CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
ree “WAS RECEIVED CORRECTLY (0,125,252, 377 
4a 024014 012703 000004 42%: MOV #4 R3 -R3=CHARACTER COUNT 
4447 026020 012702 030434 MOV #MESDAT,R2 “LOAD MESSAGE POINTER IN R2 
4448 026024 004737 027510 43$: JSR PC, INRDY “WAIT FOR INRDY 
4449 024030 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4450 024032 021204 021204 4 _ 
4451 024034 016104 000004 MOV 4(R1) RS -PUT "'FOUND'' IN RG 
4452 024040 112205 MOVB (R2)+,R5 “PUT EXPECTED’ IN RS 
4453 024042 120504 CMPB sR RG -1S RECEIVED DATA CORRECT? 
4454 024044 001401 BEQ 44$ “BR IF YES 
4455 024046 104010 HLT 10 "RECEIVE DATA ERROR 
4456 024050 005303 44$: DEC R3 "DEC CHARACTER COUNT 
4457 024052 001364 BNE 43 “BR IF NOT DONE YET 
44 


4459 ;CHECK TO SEE THAT IN BCC MATCH IS SET 
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024054 


024172 


024174 
024202 


024210 


024212 


024242 


004737 


104015 
104414 


104400 


012737 
012757 


104412 


012711 


004537 
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027510 


000004 
177400 
027510 


000004 
000376 
000001 


000004 
000377 
001250 
027652 


000053 
025374 


004000 


030152 


001252 
001252 


001226 
001216 
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51$: 


5$: 


TST53: 


;AND THAT THE BCC WAS RECEIVED CORRECTLY 


JSR PC, INRDY 


4(R1). TEMP 
BIC #177460, TEMP3 
JSR PC, INRDY 


MOV 4(R1) ,R4 


MOV #1,R5 

CMPB R5,R4 

BEQ 1$ 

HLT 15 

ROMCLK 

021204 

MOVB 4(R1),TEMP2+1 
BIC #377 ,TEMP2 
BIS TEMP2, TEMPS 
CMP CALBCC, TEMPS 
BEQ 5$ 

HLT 27 

SCOPE 


sWALT FOR INRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
GET FIRST — OF CRC 


:PUT IN TEMP 


;CLEAR HI BYTE 
WAIT FOR INRDY 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;PUT ‘‘FOUND'’ IN R4 

:CLEAR UNWANTED BITS 
;PUT "‘EXPECTED’’ IN R5 
;1S IN BCC MATCH SET? 


; IN BCC MATCH ERROR 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
:GET LAST HALF 

-PUT IN TEMP2 

;CLEAR LO BYTE 

:16 BIT BCC NOW IN TEMPS 


;1S IT CORRECT? 
IF OK 


;SCOPE THIS TEST 


seeeeeeeeeeeetereeeeeeeeeeee TEST 535 sanneaneeaeeeeerararereeret 


:*DDCMP EOM FUNCTION TEST 
;*THIS TEST LOADS OUT SILO WITH: 


2 SYNCS,4 CHAR MESSAGE ,EOM 


-#SOM,4 CHAR MESS,EOM. THE DATA STREAM IS CHECKED TO BE 
-#4 CHAR,BCC,4 CHAR,BCC,MARKS. THIS TEST VERIFYS THAT 
:>*THE CHARCTERS LOADED WITH EOM SET ARE LOST 

;*ALSO THAT THE CHAR LOADED WITH SOM IS NOT IN THE BCC 
>#ALL DATA AND BCC'S ARE CHECKED IN THE BIT WINDOW 

-*THE FOUR CHARACTER MESSAGE IS 0,125,252,377 

: sRECE1VED DATA IS VERIFIED, AND IN BCC MATCH IS CAECKED 


'MARBRBBREBRBRASARRSARSARERARARRRRRRRRRRR RRR RRR RRR RRR RRR ARRAS SAS O, 


; TEST $3 


MOV #53, TSTNO 
MOV #1ST54.NEXT 


MSTCLR 
;LOAD OUT DATA SILO 


MOV #BIT11,(R1) 
MOV MMESDAT,R4 
10$ 


MOV #4 ,RO 

JSR PC,SYNLD 
JSR PC ,OUTRDY 
JSR R5,MESLD 


;R1 CONTAINS BASE DMC11 ADDRESS 
=MASTER CLEAR DMC11 


;SET LINE UNIT LOOP 

;LOAD POINTER TO DATA 
;CLEAR SOFT BCC 

;LOAD CHARACTER COUNT 

;LOAD 2 SYNCS IN OUT SILO 
;WAIT FOR QUTRDY 

;LOAD SILO WITH 4 CHAR MESS 


ee ae eee iC eee | - <——- ows 


SEQ 0086 


a 


C 
C 


l 
7D” 


P11 


024246 


024312 


024314 


024414 


024416 


024454 


MACY11 gee as: 
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030434 


010502 


012737 


104006 
005203 


001335 


013700 


104014 


000022 


120001 
024334 
027544 


027652 
000001 


026650 


026650 


000010 


027652 
000001 


026650 


026650 


Q7-JUL-80 
29 


027650 


024336 
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17$: 


67$: 
10$: 


64$: 


65$: 


66$: 


68$: 


69$: 


70$: 


— 

JSR PC ,EOM 
JSR PC ,SOM 
JSR RS,MESLD 
_— 

JSR PC ,EOM 
JSR PC ,OCOR 
CLR R3 
DATACLK,22 

MOVB (R4)+,R5 
MOV R5,R2 


ADDRESS OF MESSAGE 
;NUMBER OF CHACTERS 
;SET EOM 


SEQ 0087 


;ADDRESS OF MESSAGE | 
;NUMBER OF CHARACTERS | 
LOAD GARBAGE CHARACTER, WITH EOM SET | 
;LOAD GARBAGE CHAR WITH SOM SET | 
LOAD FOUR MORE CHARACTERS | 

| 

| 


E 
;WAIT FOR OCOR 
; CLEAR oh A nate: 
;CLOCK DAT 
;LOAD R5 WITH CHAR 


s LOAD R2 WITH CHAR 


;CHECK FIRST FOUR CHARACTER MESSAGE 
;IN THE BIT WINDOW (0,125,252,3577) 


;LOAD POLYNOMIAL 

:LOAD SOFT CHAR FOR BCC 
;CALCULATE SOFT BCC 
:SHIFT COUNT 


; CHARACTER 

:0LD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 
;SMHIFT DATA IN TO BIT WINDOW 


;BR IF A SPACE 

;LOOK AT BIT WINDOW 

:BR IF OK (MARK) 

;ERROR, BIT WINDOW WAS A SPACE 


: CONTINUE 

;LOOK AT BIT WINDOW 

-BR IF OK (SPACE) 

sERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 


;DONE FULL 8 BITS YET 
;BR IF NO 

;CLEAR BIT COUNTER 
:DEC CHARACTER COUNT 


;BR IF NOT DONE YET 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


MOV #CRC16, POLY 
MOV R5,67$ 
JSR RS. SIMBCC 
10 

0 

0 

MOV CALBCC,10$ 
DATACLK, 1 
RORB 

BCC 65$ 

JSR PC GETSI 
BCS 66$ 

HLT 6 

BR 66$ 

JSR PC ,GETSI 
BCC 66$ 

HLT 6 

INC R3 

CMP #10,R3 
BNE 64$ 

CLR R3 

DEC RO 

BNE 12$ 

MOV CALBCC,RO 
DATACLK,1 

ROR RO 

BCC 69$ 

JSR PC,GETSI 
BCS 70$ 

HLT 14 

BR 70$ 

JSR PC GETS! 
BCC 70$ 

HLT 14 


: SHIFT SOFT DATA 
| 


;PUT BCC IN RO 
; SHIFT HARDWARE BCC 


;SHIFT SOFT BCC 

“BR IF CARRY CLEAR 
;LOOK AT BIT WINDOW 
:BR IF OK (MARK) 


: ERROR. We WRONG (SPACE) 


CONTINUE 
oon AT BIT WINDOW 
R IF OK (SPACE) 
ERROR, CRC WRONG (MARK) 


TTT TT NR ee ee 
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024464 
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024554 


024556 
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024656 


005203 


005003 


005005 


010502 


012737 


001335 


000020 


000001 


026650 


026650 


000010 


000004 
030434 
024600 


120001 
024576 
027544 


027652 
000001 


026650 


026650 


000010 
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027650 


024600 
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BASIC RECEIVER TESTS 


32$: 


30$: 


31$: 


13$: 


76$: 
11$: 


73$: 


74$: 


75$: 


INC 
CMP 
BNE 
CLR 


;CHECK CHARACTER LOADED 


R3 
#20,R5 
68$ 

R3 


#4 ,R0 


#MESDAT, RG 
11$ 
(R4)+,R5 


R5,R2 


ne eee ee ee 


;BUMP BIT COUNTER 
;FINISHED BCC YET? 


;BR IF NO 
;CLEAR BIT COUNTER 
WITH SOM (000), 


IN THE BIT WINDOW 


s OAD Ra UI th te tune WITH SOM 
; CLOCK TRANSMITTER 


:SHIFT SOFT DATA 


;BR IF SPACE 
;LOOK AT BIT WINDOW 
:BR IF OK (MARK) 
;ERROR,BIT WINDOW WAS A SPACE 
; CONTINUE 
oo AT BIT WINDOW 
R IF OK (SPACE) 
“ERROR, BIT Payee #2 WAS A MARK 


: BUMP BIT COUNTE 
;DONE CHARACTER YET? 


IF NO 


> BR 

;RESET BIT COUNTER 
;RESET CHARACTER COUNTER 
;LOAD MESSAGE POINTER 
;CLR SOFT BCC 

;LOAD CHAR IN R5 

;LOAD CHAR IN R2 


;CHECK SECOND MESSAGE IN THE BIT WINDOW (0,125,252,577) 


#CRC16,XPOLY 


R5,76$ 


RS,SIMBCC 
senate 


74% 
PC,GETSI 
75$ 


sLOAD POL YNOMI AL 

LOAD SOFT CHAR FOR BCC 
CALCULATE SOFT BCC 
;SHIFT COUNT 


= CHARACTER 


;OLD BCC 

;LOAD SOFT BCC FOR NEXT SHIFT 
;SHIFT DATA IN TO BIT WINDOW 
;SHIFT SOFT DATA 

;BR IF A SPACE 


;LOOK AT BIT WINDOW 

BR IF OK (MARK) 

;ERROR, BIT WINDOW WAS A SPACE 
; CONTINUE 

:LOOK AT BIT WINDOW 

;BR IF OK (SPACE) 


SERROR, BIT WINDOW WAS A MARK 


;BUMP BIT COUNTER 
;DONE FULL 8 BITS YET 
;BR IF NO 


I 
:CLEAR BIT COUNTER 


;DEC CHARACTER COUNT 


“BR IF NOT DONE YET 


SEQ 0088 
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024660 


024726 


024730 


02 
025050 


013700 


104014 
005203 


005003 


104415 


027652 
000001 


026650 


026650 


000020 


000001 
026650 


000007 
000010 


000001 
026650 


000020 


000001 


027510 


000004 


77$: 


78$: 


79$: 


2$: 


3$: 


4$: 


40$: 


41$: 


;CHECK BCC FOR PRECEDING MESSAGE IN THE BIT WINDOW 


;PUT BCC IN RO 
>SHIFT HARDWARE BCC 
;SHIFT SOFT BCC 


;BR IF CARRY CLEAR 

;LOOK AT BIT o— 

“BR IF OK (MA 

;ERROR, CRC URONG (SPACE) 
; CONTINUE 


:LOOK AT BIT WINDOW 
;BR IF OK (SPACE) 
;ERROR, CRC WRONG (MARK) 


;BUMP BIT COUNTER 
;FINISHED BCC YET? 


;BR IF NO 
;CLEAR BIT COUNTER 


;CHECK TO SEE IF TRANSMITTER IS MARKING 


MOV CALBCC,RO 
DATACLK, 1 

ROR 0 

BCC 78$ 

JSR PC,GETSI 
BCS 79$ 

HLT 14 

BR 79$ 

JSR PC,GETSI 
BCC 79$ 

HLT 14 

INC R3 

CMP #20,R3 
BNE 77$ 

CLR R3 
DATACLK 

JSR PC,GETSI 
BCS 3$ 

HLT 24 

INC R3 

CMP #7 .R3 
BNE 
NATACLK, 

CLR 

DATACLK, 1 
JSR PC. joETsI 
BCS 

HLT 5. 

INC R3 

CMP 130.R3 
BNE 4$ 


;CLOCK TRANSMITTER 
;LOOK AT WINDOW 

;1T SHOULD BE MARKING 
;ERROR, BIT WAS A SPACE 
; BUMP vay COUNTER 


;DONE Y 


;BR IF NO 

:GIVE ENOUGH TICKS TO CLEAR OUT ACTIVE 
;CLEAR BIT COUNTER 

;SHIFT OUT NEXT BIT 

:LOOK AT BIT ort 


:BR IF IT IS A 


A MAR 
;ERROR, TRANSMITTER IS NOT MARKING 
SINC BIT COUNT 


:DONE YET? 
;BR IF NO 


;CHECK TO SEE THAT FIRST Nee CHARACTER MESSAGE 


WAS RECEIVED CORRECTLY 
DATACLK, 
M 


#MESDAT,R2 
PC, INRDY 


(0,125,252,377) 


;GET LAST BIT IN RECEIVER 
;R35=CHARACTER COUNT 


;LOAD MESSAGE POINTER IN R2 
WAIT FOR INRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


;PUT ""FOUND'’ IN 
“PUT EXPECTED’ R5 
:1S ry at ba DATA. CORRECT? 


IF 
RECEIVE DATA ERROR 
;DEC CHARACTER COUNT 


“BR IF NOT DONE YET 


ee ee ee a ee 
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ieze AND THAT THE BCC WAS RECEIVED CORRECTLY 
4686 025052 004737 027510 JSR PC, INRDY sWAIT FOR INRDY 
4687 025056 104414 ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4688 025060 021204 021204 “GET FIRST HALF OF CRC 
4689 025062 116137 000004 001252 MOVB 4(R1),TEMP3 “PUT IN TEMP3 
4690 025070 042737 177400 001252 BIC #177400, TEMP3  :CLEAR HI BYTE 
4691 025076 004737 027510 JSR PC, INRDY “WAIT FOR INRDY 
4692 025102 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4693 025104 021244 021244 
4694 025106 016104 000004 MOV 4(R1) RG :PUT "'FOUND'’ IN R4 
4695 025112 042704 000376 BIC #376, RG "CLEAR UNWANTED BITS 
4696 025116 012705 000001 MOV #1,R5 “PUT EXPECTED’ IN R5 
4697 025122 120504 CMPB sR. RG "1§ IN BCC MATCH SET? 
4698 025124 001401 BEQ 0 
4699 025126 104015 HLT 15 -IN BCC MATCH ERROR 
4700 025130 S0$: 
4701 025130 104414 ROMCLK NEXT WORD 1S. INSTRUCTION, ROMCLK PC=5304 
4702 025132 021204 021204 “GET LAST 
4703 025134 116137 000004 001251 MOVB 4(R1),TEMP2+1  :PUT IN TERPS. 
4704 025142 042737 000377 001250 BIC #377, TEMP2 “CLEAR LO BYTE 
4705 025150 053737 001250 001252 BIS TEMP2, TEMP3 "16 BIT BCC NOW IN TEMP3 
4706 025156 023737 027652 001252 CMP CALBCC,TEMP3  :1S IT CORRECT? 
4707 025164 001401 BEQ 45$ “BR IF OK 
4708 025166 104027 HLT 27 
4710 -CHECK THAT CHARACTER LOADED WITH SOM WAS RECEIVED (000) 
4712 025170 004737 027510 45$: JSR PC, INRDY “WAIT FOR INRDY 
4713 025174 104414 ROMCLK “NEXT WORD IS INSTRUCTION, RCMCLK PC=5304 
4714 025176 021204 021204 -GET RECEIVE DATA 
4715 025200 016104 000004 MOV 4(R1) RG “PUT "FOUND IN R46 
4716 025204 005005 CLR RS “PUT EXPECTED’ IN RS 
4717 025206 120504 CMPB sR. RG -1$ RECEVIED DATA CORRECT? 
4718 025210 001401 BEQ 42$ “BR IF YES 
4719 025212 104010 HLT 10 "RECEIVE DATA ERROR 
4721 -CHECK TO SEE THAT SECOND FOUR CHARACTER MESSAGE 
4722 “WAS RECEIVED CORRECTLY (0,125,252, 377) 
4724 025214 012703 000004 42%: #4R3 :R3=CHARACTER COUNT 
4725 025220 012702 030434 #MESDAT,R2 “LOAD MESSAGE POINTER IN R2 
4726 025224 004737 027510 43$: PC, INRDY “WAIT FOR INRDY 
4727 025230 104414 "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4728 025232 021204 ¥ 
4729 025234 016104 000004 &(R1) RG ;PUT ‘'FOUND'' IN R 
4730 025240 112205 (R2)+,R5 “PUT EXPECTED’ 1 RS 
4731 025242 120504 RS RG “15 RECEIVED DATA CORRECT? 
4732 025244 001401 44$ “BR IF YES 
4733 0252466 104010 10 RECEIVE DATA ERROR 
4734 025250 005303 44$: Rz “DEC CHARACTER COUNT 
4735 025252 001364 43$ “BR IF NOT DONE YET 
4737 “CHECK TO SEE THAT IN BCC MATCH IS SET 
4738 "AND THAT THE BCC WAS RECEIVED CORRECTLY 


mm meee 


' 
——— ’ 
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4740 025254 004737 027510 JSR PC, INRDY sWAIT FOR INRDY 
4741 025260 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
4742 025262 021204 021204 sGET FIRST HALF OF CRC 
4743 0625264 116137 000004 001252 MOVB 4(R1), TEMPS PUT IN TEMPS 
4744 025272 042737 177400 001252 BIC #177460, TEMP3 ;CLEAR HI BYTE 
4745 025300 004737 027510 JSR PC, INRDY ;WAIT FOR INRDY 
4746 025304 104414 ROMCLK sNEXT WORD iS INSTRUCTION, ROMCLK PC=5504 
4747 025306 021244 021244 
4748 025310 016104 000004 MOV 4(R1),R4 :PUT ‘'FOUND'’ IN R4 
4749 025314 042704 000376 BIC #376,R4 >CLEAR UNWANTED BITS 
4750 025320 012705 000001 MOV #1 ,R5 sPUT ‘EXPECTED’ IN R5 
4751 025324 120504 CMPB R5,R4 ;1S IN BCC MATCH SET? 
4752 025326 001401 BEQ 51$ 
4753 025330 104015 HLT 15 : IN BCC MATCH ERROR 
4754 025332 51$: 
4755 025332 104414 ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
4756 025334 021204 021204 ;GET LAST HALF 
4757 025336 116137 000004 001251 MOVB 4(R1), TEMP2+1 ;PUT IN TEMP2 
4758 025344 042737 000377 001250 BIC #377, TEMP2 ;CLEAR LO BYTE 
4759 025352 053737 001250 001252 Bis TEMP, TEMPS :16 BIT BCC NOW IN TEMP3 
4760 025360 023737 027652 001252 CMP CALBCC, TEMPS ;1S IT CORRECT? 
4761 025366 001401 BEQ 5$ ;BR IF OK 
4762 025370 104027 HLT 27 
rth wr 025372 104400 5$: SCOPE ;SCOPE THIS TEST 
4765 
4766 seeeeneeerinrereeetererenene TEST 54 eee eeeaeeeeeeeeteeeeeeeeees 
4767 ;*EMPTY SILO TEST 
4768 >*LOAD SILO WITH 2 SYNCS, 4 CHAR MESSAGE, SINGLE CLOCK 
4769 >*UNTIL THE SILO IS EMPTY, LOAD 4 MORE CHARACTERS IN THE 
4770 >*SILO. GIVE MORE TICKS, AND VERIFY THAT ONLY THE FIRST 
4771 >#4 CHARACTER MESSAGE WAS RECEIVED AND THAT RTS IS CLEAR 
4772 s  MARERAHAHEH AA AETEAAEAA AHA AAAAE KARA AAAAAAAKAAAAAA KAA AAT TET 
4773 
4774 ; TEST 54 
4775 peer e ee eececon- 
4776 025374 012737 000054 001226 1TST54: MOV #54, TSTNO 
4777 025402 012737 025626 001216 MOV #TSTS5,NEXT 
4778 ;R1 CONTAINS BASE DMC11 ADDRESS 
4779 025410 104412 MSTCLR ;MASTER CLEAR DMC11 
012711 004000 MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
012702 030434 MOV #MESDAT,R2 ;R2 POINTS TO MESSAGE 
012700 000004 MOV #4,R0 ;RO = CHAR COUNT 
004737 030016 JSR PC,SYNLD ;LOAD SILO WITH TWO SYNCS 
004737 027034 JSR PC ,OUTRDY sWAIT FOR OUTRDY 
004537 030152 JSR RS,MESLD ;LOAD MESSAGE IN SILO 
0304 34 MESDAT ;START OF MESSAGE 
000004 ; CHARACTER COUNT 
004737 026702 SR PC ,OCOR sWAIT FOR OCOR 
104415 000065 DATACLK, :CLOCK DATA (EMPTY SILO) 
004537 0301S? JSR RS,MESLD -PUT MORE CHARACTERS IN SILO 
0304 34 MESDAT 
000004 4 | 
004737 026702 JSR PC ,OCOR 
104415 000005 DATACLK, 5 ;CLOCK UNTIL RTS IS CLEARED. 
4795 025476 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
| 
| 
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000040 
000041 
027510 


000004 


027510 


000004 
000377 


027510 


000004 
000377 


000055 
025744 


000004 


001226 
001216 


000004 


—wW 
Pw 


2$: 
3$: 


4$: 


10$: 


TSTS5: 
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BASIC RECEIVER TESTS 


8 8 : s 
SEQ 0092 
021266 “GET RTS 
BIT #B1T5,4(R1) -1S IT CLEAR? 
BEOSté‘é‘SSS “BR IF YES 
HLT 34 sERROR, RTS NOT CLEAR 
DATACLK, 41 “CLOCK XMITTER SOME MORE 
SR PC INRDY “OK LETS CHECK WHAT WAS RECEIVED 
L “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


;GET RECEIVE DATA 


G(R1) RG :PUT IT IN R4 

(R2)+,P5 ;RS = EXPECTED" 

R5,R4 ;1S DATA CORRECT? 
:BR IF OK 

10 ;DATA ERROR 

RO ;DEC CHAR COUNT 

1$ :BR IF NOT Ame. YET 

PC, INRDY “WAIT FOR INRD 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=53504 
;GET RECEIVE D 

4(R1) ,R4 ;PUT IT IN ROUND” 

#377,R5 7R5 = EXPECTED" 

R5,R4 ;SHOULD SEE 377 

4$ :BR IF OK 

10 ;ERROR, TRANSMITTER DID NOT ABORT 

PC, INRDY “WAIT FOR INRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
GET RECEIVE DATA 

4(R1) RS ;PUT IT IN ‘'FOUND"’ 

#377,R5 ;R5 = ‘EXPECTED’ 

R5,R4 : SHOULD SEE 377 

10% “BR IF OK 

10 ;ERROR, TRANSMITTER DID NOT ABORT 


SCOPE 


;SCOPE THIS TEST 


seeeeeeerereererereeeereener TEST 55 seeeeeerentenerenearererent 
;*HALF DUPLEX TEST 

;*SET LINE UNIT LOOP AND HALF DUPLEX, SEND SYNCS AND A 

> *MESSAGE. VERIFY THAT IN-ACTIVE AND IN-READY ARE CLEAR 


3 'MARBBRBABRBBRBARABRBAASLARSASLASASLESAR RR RE RRR RRR RRRRRRRRR RAR RR ARRAS DSS, 


; TEST 55 
MOV #55,TSTNO 
MOV #TST5S6,NEXT 
>Ri CONTAINS BASE DMC11 ADDRESS 
MSTCLR ;MASTER CLEAR DMC11 
MOV #12,R2 ;SAVE R2 FOR TYPEOUT 
MOV #BIT11,(R1) ;SET LINE UNIT LOOP 
MOV #BI1T4,4(R1) : LOAD PORT4 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
122113 : SET H/D BIT 
JSR PC,SYNLD ;LOAD 2 SYNC 
JSR PC ,OUTRDY ;WAIT FOR OUTRDY 
JSR RS,MESLD >LOAD 4 CHAR MESSAGE 
ME SDAT ADDRESS OF MESSAGE 


——— eee — -_—e —-- @ — + -_— - + —- 
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025744 
025752 


025760 
025762 


026104 
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- JUL -80 29 BASIC RECEIVER TESTS 
000004 4 
004737 026702 JSR PC ,OCOR 
104415 000073 DATACL 73 
104414 ROMCLK 
021244 021244 
016104 000004 MOV 4(R1), RG 
042704 000257 BIC #257, 
005005 CLR RS 
120504 CMPB RS,R4 
001401 BEQ 1$ 
104035 HLT 35 
104400 18: SCOPE 
;*DDCMP CABLE DATA TFST 
; TEST 56 
012737 000056 001226 1TST56: MOV #56,TSTNO 
012737 026332 001216 MOV #TST57, NEXT 
104412 MSTCLR 
032737 040000 001366 BIT #BIT14,STAT1 
001557 BEQ 3$ 
004000 MOV #BIT11,(R1) 
JSR PC,SYNLD 
JSR PC,SYNLD 
027650 MOV #CRC16,XPOLY 
CLR 6$ 
MOV #16.,R3 
MOV #FLTDAT,R2 
7$: MOVS (R2)+,5$ 
027544 + RS,SIMBCC 
5$: 0 
6$: 0 
027652 026044 MOV CALBCC,6$% 
DEC Qe 
BNE 7$ 
030152 JSR RS,MESLD 
gee 
030126 JSR PC ,EOM 
030152 JSR RS,MESLD 
on 
030126 JSR PC ,EOM 


me em eae oa ee ae 


; CHARACTER COUNT 


;WAIT FOR OCOR 
;SEND MESSAGE 
SNEXT re Fs INSTRUCTION, ROMCLK PC=5304 


: INACTIVE AND IN-RDY SHOULD BE CLEAR 
;ERROR BOTH ARE NOT CLEAR 


seeeeeeeteereerereretertenee TEST 56 teeeeeeereerrenenereerereet 


;*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

;*4 SYNCS,16 CHAR,EOM,16 CHAR,EOM,16 CHAR,EOM 

:*THE 16 CHARACTERS INCLUDE A FLOATING ONE AND ZERO 

;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE. INTERNAL CLOCK 
;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

:*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 


STRRARHAHAAAAAAAAAAAAEAAAEAAAARAAAAAAAAERAAAARAKAARAAAAATAKAAA AEH 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


;SKIP TEST IF NO 

;LOOPBACK CONNECTOR ON 

;SET LINE UNIT LOOP 

;LOAD 2 SYNCS 

;LOAD 2 MORE SYNCS 

sLOAD POLYNOMIAL FOR SOFT CRC CALC 
;CLEAR OLD BCC 

; CHARACTER COUNT 

:R2= POINTER 

sLOAD CHAR FOR SOFT BCC CALC. 
;CALC SOFT BCC 

:SHIFT COUNT 

: CHARACTER 


OLD BCC 

;LOAD OLD at 

;DEC COUNT 

ace y NOT DONE YE! 


;LOAD SILO 

: MESSAGE ADDRESS 
: CHARACTER COUNT 
*LOAD AN EOM 
;LOAD SILO 
;MESSAGE ADDRESS 
; CHARACTER COUNT 
:LOAD AN EOM 


a me eae ee —_ ee ee -_— - - = ere 


SEQ 0095 


Oe Se CT OLR rw mmm wm rr we ee ee ee ee eel — —_——_ 


eae ee ——— ee ol 


-P1 


026176 


026202 


026330 


‘wat eh 
“B80 15 


104414 


104015 
104414 


104400 


030152 


030126 


026702 


027510 


000004 


000020 


027510 


000004 
177400 
027510 


000004 
000376 
000001 


000004 


027652 


030440 
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001252 
001252 
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BASIC RECEIVER TESTS 


2$: 


258: 


4$: 


3$: 


JSR 
FLTDAT 


R5,MESLD 


#16., 
WFLTDAT,R2 
PC, INRDY 


4(R1) ,R4 
(R2)+,R5 
R5,R4 

2$ 


25 
R3 


1$ 
#16.,R5 


;LOAD SILO 
;MESSAGE ADDRESS 
; CHARACTER COUNT 


; AGE ae 

:R3= CHARACTER COUN 

;LOAD MESSAGE POINTER IN R2 

;WAIT FOR INRDY 

“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;GET DATA FROM IN SILO 

;PUT CHARACTER IN ‘‘FOUND’' 

;PUT ‘‘EXPECTED'’ IN R5 

;1S RECEIVED DATA CORRECT 


;BR IF OK 
:DATA ERROR 
;DEC CHARACTER COUNT 


;BR IF NOT DONE THIS MESSAGE 
;RESET CHARACTER COUNT 


;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 


021204 


PC, INRDY 


4(R1), TEMPS 
#177400, TEMPS 
PC, INRDY 


4(R1) RG 
#376 ,R4 
#1 RS 
RS RG 
25$ 

15 


4(R1), TEMP2+1 
#377, TEMP2 
TEMP2 TEMPS 
| ties atale 


27 
#FLTDAT,R2 
RO 
1$ 


;WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;GET FIRST HALF OF CRC 

:PUT IN TEMP3 

;CLEAR HI BYTE 

“WAIT FOR INRDY 

;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 


;PUT ‘FOUND’ IN R4 

;CLEAR UNWANTED BITS 
;PUT "‘EXPECTED’’ IN R5 
;1S IN BCC MATCH SET? 


;IN BCC MATCH ERROR 
;NEXT WORD | ntact ome ROMCLK PC=5304 
H 


E 
:16 BIT BCC NOW IN TEMP3 
;1S IT CORRECT? 
“BR IF OK 


;RESET MESSAGE POINTER 
;DECREMENT COUNTER 

;BR IF NOT DONE 

;SCOPE THIS TEST 


seeeeererererrerererettenene TEST 57 eeeetareeeereeerenerreeeere 


:*DDCMP CABLE DATA TEST 


oe = ee er ee Omer re ere 


SEQ 0094 


CZDME 


CZDME .P11 
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026332 
026540 


026346 
026350 


026526 


026550 
026534 


012737 
012737 


104412 
032737 


104025 


005300 
001364 


004737 
104414 


07-JUL-80 
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000057 
003364 


040000 
004000 


027544 


027652 
030152 
030126 


026702 


000073 
030434 
027510 


000004 


027510 


001226 
001216 
001366 


027650 


026432 


ee 
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BASIC RECEIVER TESTS 


>*THIS TEST LOADS OUT SILO WITH THE FOLLOWING: 

>*4 SYNCS,59 DATA CHARACTERS,£OM WITH GARBAGE CHARACTER 

;*THE DATA IS TRANSMITTED OVER THE CABLE USING THE INTERNAL CLOCK 
;*RECEIVED DATA IS VERIFIED AS IS IN BCC MATCH 

;*LOOP-BACK CONNECTOR MUST BE ON TO RUN THIS TEST 


; 'MPRBRRBRRBBRBABRBRAARABRARARARRARARRRRRRARRARRRRRRRRRRRRRRRRRRRRRRAR ERAS AS A | 


TST57: 


7$: 


S$: 
6$: 


2$: 


MOV #57, TSTNO 
MOV #. EOP NEXT 


BIT WBIT14,STATI 


MOV #B1T11,(R1) 
JSR PC,SYNLD 

JSR PC,SYNLD 

MOV peat 


#59. ,R3 
MOV #MESDAT,R2 
MOVB (R2)+,5$ 
JSR RS,SIMBCC 


MOV CALBCC ,6% 
R3 


BNE 7$ 

JSR R5,MESLD 
— 

JSR PC ,EOM 
JSR PC ,OCOR 
CLR (R1) 


MOV WMESDAT, R2 
JSR A, INRDY 


MOV 4(R1) ,P4 
MOVB (R2)+,R5 
CMPB R5,R4 

2$ 


HLT 25 
DEC RO 
BNE 1$ 


——_—_— _—_—_————————— ee ee 


;R1 CONTAINS BASE DMC11 ADDRESS 
;MASTER CLEAR DMC11 


;SKIP TEST IF NO 
;LOOPBACK CONNECTOR ON 
‘SET LINE UNiT LOOP 
LOAD 2 SYNCS 


TOAD 2 MORE SYNCS 

;LOAD POLYNOMIAL FOR SOFT CRC CALC 
;CLEAR OLD BCC 

; CHARACTER COUNT 

;R2= POINTER 

;LOAD CHAR FOR SOFT BCC CALC. 
;CALC SOFT BCC 

;SHIFT COUNT 

; CHARACTER 

;0LD BCC 

;LOAD OLD BCC 

:DEC COUNT 


;BR IF NOT DONE YET 
;LOAD SILO 

:MESSAGE ADDRESS 

; CHARACTER COUNT 


= LOAD AN EOM 

;WAIT FOR OCOR 

;CLEAR LINE UNIT LOOP 
;RO= CHARACTER COUNT 


N 
;LOAD MESSAGE POINTER IN R2 
:WAIT FOR INRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
;GET DATA FROM IN SILO 
;PUT CHARACTER IN ‘FOUND 
;PUT “‘EXPECTED’’ IN R5 
;1S RECEIVED DATA CORRECT 
“BR IF OK 
;DATA ERROR 


;DECREMENT COUNTER 
;BR IF NOT DONE 


;CHECK TO SEE THAT IN BCC MATCH IS SET 
;AND THAT THE BCC WAS RECEIVED CORRECTLY 


JSR PC, INRDY 
ROMCLK 


;WAIT FOR INRDY 
;NEXT WORD IS INSTRUCTION, ROMCLK PC=55u4 


ee ae -_— = — 


SEQ 0095 


A mm ge A LT TT | 
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Pil 01-jUL-80 15:29 BASIC RECEIVER TESTS SEQ 0096 

$020 026536 0212 021204 -GET FIRST HALF OF CRC 

$021 026540 116137 000004 001252 MOVB 4(R1), TEMPS :PUT IN TEMP3 

S022 026546 042737 177400 001252 BIC #177460, TEMPS :CLEAR HI BYTE 

$023 026554 004737 027510 JSR PC, INRDY “WAIT FOR INRDY 

S024 026560 104414 ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC =5504 
$025 026562 021244 021244 

$026 026564 016104 000004 MOV 4(R1),R4 ;?UT “FOUND IN RG 

$027 026570 042704 000376 BIC #376, RG -CLEAR UNWANTED BITS 

$028 026574 012705 000001 MOV wi rs ;Pur “EXPECTED'' IN RS 

0 02 120504 “MPR R5,RG -1S IN BCC MATCH SET? 

$030 026602 001401 BEOQ 25$ 

5031 026604 104015 HLT 15 -IN BCC MATCH ERROR 

5032 026606 25%: 

5033 026606 104414 ROMCLK -NEXT WORD i? INSTRUCTION, ROMCLK PC=5304 
034 026610 021204 021204 GET LAST HA 

$035 026612 116137 000004 001251 MOVB 4(R1), TEMP2+1 -PUT IN renee. 

5036 026620 042737 000377 001250 BIC #377. TEMP2 “CLEAR LO BYTE 

5037 026626 053737 001250 001252 BIS TEMPO, TEMPS :16 BIT BCC NOW IN TEMPS 

$038 026634 023737 027652 001252 cmp CALBCC, TEMPS :18 IT CORRECT? 

5039 026642 001401 BEQ 3$ :BR IF OK 

5040 026644 1064027 HLT 27 

$041 026646 104400 %$: SCOPE -SCOPE THIS TEST 

$042 

$043 
5044 ; SUBROUTINES 
5045 poco rocoece- 
5046 
$047 026650 GETSI: 
5048 ;THIS SUBROUTINE READS LU 17, AND PUTS IT INIO NITCH. 
Seen sNITCH IS ROTATED LEFT UNTILL THE SI BIT IS IN CARRY 
$051 026650 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$052 026652 021364 021364 PORTS LU 17 
$053 026654 017737 152532 026700 MOV aDMP04 .NITCH -STORE LU 17 
5054 026662 106137 026700 ROLB NITCH 
5055 026666 106137 026700 ROLB NITCH 
$056 026672 106137 026700 ROLB NITCH :PUT SI IN THE CARRY BIT 

5057 026676 000207 RS PC 

$058 026700 900000 NITCH: 0 

$059 
5060 
$061 026702 OcOR: 
sock : THIS SUBROUTINE SPINS ON OCOR 

5064 026702 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLE PC =5504 
$065 026704 021364 021364 -PORTS LU 17 

$066 026706 032777 000020 152476 BIT @B1 14, aDMPO4 :1S OCOR SET? 

$067 026714 001772 BEQ OCOR :BR IF NO 

goe8 026716 000207 RTS PC :Ox OCOR IS SET, GO BACK 

$070 

$071 026720 SYNC: 

$072 :TH]S SUBROUNTINE LOADS THE SILO WITH THE NUMBER OF SYN 
$073 CHARACTERS PASSED TO IT IN THE WORD AFTER THE JSR CALL 
is te -AND A NON-SYNC CHARACTER (301) 


eee 


-———- 





5105 
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005037 
194414 


001246 
000002 
000026 


027034 
000001 


000026 
001246 
027034 
000004 
000301 


926702 


001256 


009020 
001256 


001250 


027034 
000001 


000026 
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UBROUT INES 


OUTRDY: 


1$: 


2%: 


CHAR: 





Pc ,OUTRDY 
#1 ,4(R1) 


#26,4(P1) 


TEMP) 

1$ 

PC ,OUTRDY 
&(R1) 


#301,4(R1) 


PC ,OCOR 
PC 


;GET COUNT 

sADJUST STACK 

;LOAD PORTS 

;NEXT WORD IS INSTRUCTION, 
;LOAD SYNC REGISTER 


ROMCLK ©(=5304 


;WAIT FOR guiney 

;LOAD PORTS 

;NEXT WORD IS INSTRUCTION, 
SET SOM 


:LOAD PORTS 
;NEXT WORD 53 INSTRUCTION, 
s LOAD OUT DAT 


ROMCLK PC=5304 





ROMCLK PC=5304 


;LOAD PORTS 

;NEXT WORD IS INSTRUCTION, 
-SET SOM 

>LOAD PORTS 

;NEXT WORD IS INSTRUCTION, 


;LOAD OUT DATA 
;WAIT FOR OCOR 


ROMCLK PC=5304 


ROMCLK PC=5304 


;THIS SUBROUTINE SPINS ON OUT READY 


CLR 


TEMPS 


#B114,aDMP04 


;CLEAR TIMER 


:NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
:PORTS4 LUT! 

:1$ out RDY SET? 

“BR IF YES 

> INC TIMER 

“KEEP CHECKING IF NOT DONE 


;ERROR, OUT READY NOT SET 


:THIS SUBROUTINE LOADS THE SILO WITH 3 SYNCS 
:AND THE CHARACTER PASSED TO IT. 


a(SP)+, TEMP2 
e 
#26,4(R1) 


PC ,OUTRDY 
#1,4(R1) 


#26,4(R1) 


:GET CHARACTER 
;ADJUST STACK 


;SET FOR 3 SYNCS 

;LOAD PORTS 

:NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD SYNC REGISTER 

“WAIT FOR Deiat 

;LOAD PORT 

;NEXT YORD IS INSTRUCTION, ROMCLK PC=5504 
;SET SOM 


“LOAD PORTS 
“NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 


—— ——_— _—_— ee — - 


SEQ 0097 


— TT I — 
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CZ7DME.P11 01-JuL-80 1 SUBROUTINES SEQ 0098 
at 027144 122110 122110 ;LOAD OUT DATA 
5133 0271466 005337 001246 DEC TEMP) “ALL DONE ? 
§134 027152 001361 BNF Otiéd'S BR IF NOT 
5135 027154 004737 027034 JSR —- PC, OUTRDY WAIT FOR OUTRDY 
6136 027160 013761 001250 000004 MOV —s: TEMP2,4(R1) LOAD PORTS 
5137 027166 104414 ROMCLK ;NEXT WORD +P INSTRUCTION, ROMCLK PC=5304 
5138 027170 122110 122110 ‘LOAD OUT DATA 
5139 027172 004737 026702 JSR PC ,OCOR “WAIT FOR OCOR 
$140 027176 000207 RTS PC 
$141 
$142 
$143 027200 C4ARSD: 
grag :THIS SUBROUTINE LOADS THE SILO WITH THE CHARACTER PASSED TO IT. 
$146 027200 013637 001250 MOVs a(SP)+,TEMP2 GET CHARACTER 
5147 027204 062746 000002 ADD #2,- (SP) ;sADJUST STACK 
5148 027210 004737 027034 JSR PC ,OUTRDY ;WAIT FOR _ 
5149 027214 013761 001250 000004 MOV —s TEMP2,,4(R1) ;LOAD PORT 
$150 027222 104414 ROMCLK NEXT fot +3 INSTRUCTION, ROMCLK PC=5304 
5151 027224 122110 122110 “LOAD OUT DAT 
5152 027226 004737 027034 JSR PC ,OUTRDY ;WALT FOR OUTROY 
$153 027232 104414 ROMCLK NEXT WCRD IS INSTRUCTION, ROMCLK PC=5304 
$154 027234 122110 122110 “LOAD GARBAGE CHAR 
5155 027236 004737 026702 JSR PC ,OCOR :sWAIT FOR OCOR 
5156 027242 000207 RTS ~~ 
5157 
5158 
5159 027244 SILOLD: 
5160 ;THIS SUBROUTINE FILLS THE OUT SILO 
44 ¢! ; WITH A BINARY COUNT PATTERN 
$163 027244 012737 000073 001250 MOV —s-#73, TEMP2 SLOAD COUNT 
$164 027252 005737 027504 TST SCHAR sFIRST TIME HERE? 
5165 027256 100470 BM] 4$ :BR IF BITSTUFF 
5166 027260 001032 BNE 28 :BR IF NO 
5167 027262 062737 000002 001250 ADD #2,TEMP2 ;ADD 2 TO CHARACTER COUNT 
5168 027270 012737 000003 001246 MOVs #3, TEMP 1 “SET FOR 3 SYNCS 
5169 027276 012761 000026 000004 MOV «#26, 4(R1) “LOAD PORT4 
$170 027304 104414 ROMCLK :NEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
5171 027306 122114 122114 ;LOAD SYNC REGISTER 
$172 027310 00473 027034 1$: JSR PC ,OUTRDY ;WAIT FOR M tients 
5173 027314 012761 000001 000004 MOVs #14 (R1) “LOAD PORT 
5174 027322 10443 ROMCLK “NEXT + ty IS INSTRUCTION, ROMCLK PC=5504 
5175 027324 122111 122111 “SET SOM 
5176 027326 012761 000026 000004 MOV #26, 4(R1) :LOAD PORT4 
$177 027334 104414 ROMCLK “NEXT WORD +7 INSTRUCTION, ROMCLK PC=5304 
5178 027336 122110 122110 :LOAD OUT DAT 
5179 0°7340 005337 001246 DEC =—SsSTEMP1 SALL DONE? 
5180 Uc7344 001361 BNE 18 “BR IF NOT 
5181 027346 004737 027034 2$: JSR PC ,OUTRDY ;WAIT FOR Dated 
5182 027352 013761 027504 000004 MOV —s SCHAR,, 4(R1) “LOAD PORT . 
$183 27360 104414 ROMCLK “NEXT tnd {FP INSTRUCTION, ROMCLK PC=5304 
5184 027362 122110 122110 SLOAD OUT DAT 
$185 027364 005737 027506 1ST —- STUFLG {BITSTUFF?22. 
5186 027370 001407 BEQStéGS :BR IF NO 
$187 027372 013737 027504 027404 MOV SCHAR,5$ :I1T IS SDLD SO CHECK BITSTUFFING 
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027566 
027570 
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030234 
000400 
001250 
026702 
027504 


000001 


000000 


000020 
001246 


001246 


027652 
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000004 


001246 


151662 
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SUBROUTINES 


5$: 
6$: 


3$: 
4$: 


SCHAR: 
STUFLG: 


INRDY: 


1$: 


2$: 


SIMBCC: 





RS,STFFCL 


SCHAR 


#400,SCHAR 
3$ 


TEMP2 
$ 


PC ,OCOR 
PC 


SCHAR 


#-1,STUFLG 


BITCON 


#2,TEMP2 
#1,4(R1) 


2$ 


>NEXT CHARACTER 


;ALL DONE? 


;DECREMENT COUNT 
;BR IF NOT DONE 
;WAIT FOR OCOR 


;START PATTERN AT ZERO 


;SET BITSTUFF FLAG 
;CLEAR STUFF COUNT 


;ADD ANY BIT STUFF CLOCK TICKS 
: CHARACTER 
sCHIFT COUNT 


;ADD 2 TO CHARACTER COUNT 


;SET BITO IN PORTS 
— IS INSTRUCTION, ROMCLK PC=5304 


;NEXT 
;SET 


$0 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;LOAD GARBAGE CHAR 


;GO LOAD SILO 


;THIS SUBROUTINE SPINS ON INRDY 
;1F INRDY FAILS TO SET THE DELAY TIMES OUT AND AN 
;ERROR IS REPORTED. FOR BETTER SCOPE LOOPS THIS 
;DELAY CAN BE MADE SHORTER BY ALTERING THE NUMBER 

; INITIALLY LOADED INTO TEMP1, THE SMALLER THE NUMBER 
;THE SHORTER THE DELAY. 0 IS THE LONGEST DELAY. 


;SET UP DELAY COUNTER 


MOV 


ROMCLK 
021244 


;THIS SUBROUTINE CALCULATES THE CRC USING POLYNOMIAL GIVEN 
;IN XPOLY. THE CORRECT CRC IS RETURNED IN CALBCC, AND THE 


#0, TEMP 1 


#B1T4,aDMPO4 
2$ 


;NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
;PORT4 LUI2 


-1S INRDY SET? 


;BR IF YES 
; INC DELAY 
; TRY AGAIN 


;ERROR,NO INRDY 


;RETURN 


;STATE OF THE LSB OF THE BCC IS RETURNED IN THE C BIT. 


;SAVE RO ON STACK 
;TEMP1 = SHIFT COUNT 


RO, -(SP) 
(R5)+, TEMP 
(RS)+,TEMP2 
(RS) +, CALBCC 
CALBCC,RO 


CALBCC 


;TEMP2 = CHARACTER 


;CALBCC = OLD BCC 


;PUT OLD BCC IN RO 


; SHIFT OLD BCC 


SEQ 0099 








‘et’ 30A(1052) 
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027574 
027600 


027652 


027654 


027654 


027766 


027766 
027770 
027772 


006037 


102010 


013637 


000207 


104414 
021564 
106177 


001250 
027650 
) 


001246 
027652 


001250 
000002 
000002 
000026 


027034 
000001 


000026 
001246 
027034 
001250 


026792 


151414 


027652 


001246 
000004 


000004 


000004 


000004 
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SUBROUTINES SEQ 0100 
ROR TEMP2 ; SHIFT CHARACTER 
ADC RO ;ADD CHAR CARRY TO OLD BCC 
ROR RO ;PUT BITO TO CARRY BIT 
BCC 2$ ;CARRY IS FEEDBACK BIT 
MOV XPOLY ,RO ;1F FEEDBACK = 1 
BIC AL ;EXCLUSIVLY OR XPOLY TO CALBCC 


BIS RO, CALBCC 


2$: DEC TEMP 1 ;DEC SHIFT COUNT 


BNE 1$ :BR IF NOT DONE 
MOV CALBCC,RO ;PUT RESULT IN RO 
ROR RO :SHIFT BITO TO CARRY 
MOV (SP)+,RO sRESTORE RO 
RTS R5 sRETURN 

XPOLY: 0 

CALBCC: 0 

LRC8=200 


CRC16=120001 
CRC.CCITT=102010 


BCCLD: 
: THIS SUBROUTINE LOADS THE OUT SILO WITH 2 SYNCS 
sWITH SOM SET, AND ONE CHARACTER PASSED TO IT 
sWITH THE SOM BIT CLEAR (ENABLE CRC) 
MOV a(SP)+,TEMP2 :GET CHARACTER 
ADD #2,-(SP) sADJUST STACK 
MOV #2,TEMP) :SET FOR 2 SYNCS 
MOV #26,4(R1) :LOAD PORT4 
ROMCLK sNEXT WORD IS INSTRUCTION, ROMCLK PC=5504 
122114 ;LOAD SYNC REGISTER 
1$ JSR PC ,OUTRDY sWAIT FOR OUTRDY 
MOV #1,4(R1) ;LOAD PORTS 
ROMCLK >NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 :SET SOM 
MOV #26,4(R1) * LOAD PORT4 
ROMCLK “NEXT WORD +A INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DAT 
DEC TEMP 1 “ALL DONE ? 
BNE 1$ ;BR IF NOT 
JSR PC ,OUTRDY :WAIT FOR OUTRDY 
MOV TEMP2 ,4(R1) ;LOAD PORTS 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 ;LOAD OUT DATA 
JSR PC ,OCOR sWAIT FOR OCOR 
RTS PC 
GETQO: 


;THIS SUBROUTINE READS THE STATE OF = TRANSMIT 
:BCC LSB AND PUTS IT IN THE CARRY BIT 


ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
021364 -PORT4 LU-17 
ROLE aOMP04 :PuT oO. IN CARRY 
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CZDME WMACY11 30A(1052) O7-JUL-80 13:53 PAGE 101 | 
CZ2DME .P11 01-JUL-80 15:29 SUBROUTINES SEQ 0101 
t 4 027776 000207 RTS PC sRETURN | 
5302 : | 
5303 030000 GETQI: | 
$304 :THIS SUBROUTINE READS THE STATE OF THE REcEIVE 
ga0e BCC LSB AND PUTS IT IN THE CARRY BIT 
5307 030000 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$308 030002 021364 021364 >PORT4 LU-17 
$309 030004 106177 151402 ROLB aOMPO4 :PUT Q6 IN CARRY 
$310 030010 106177 151376 ROLB aDMPO4 :PUT QI IN CARRY 
5311 030014 000707 RTS PC RETURN 
$312 
$313 
5314 030016 SYNLD: 
5315 : THIS SUBROUTINE LOADS OUT SILO WITH 
2315 2 SYNC CHARACTERS WITH SOM SET 
$318 030016 012737 000002 001246 MOV #2, TEMP1 LOAD COUNTER FOR 2 SYNCS 
5319 030024 012761 000026 000004 MOV #26,4(R1) :PORTS 2 
$320 030032 104414 ROMCLK *-NEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
$321 030034 122114 122114 >LOAD SYNC REG 
$322 030036 004737 027034 1$: JSR PC ,OUTRDY WAIT FOR OUTRDY 
$323 030042 012761 000001 000004 MOV #1,4(R1) LOAD PORT4 
$324 030050 104414 ROMCLK *NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$325 030052 122111 122111 >SET SOM 
§326 030054 012761 000026 000004 MOV #26,4(R1) :PORT_26 
$327 030062 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
$328 030064 122110 122110 *LOAD OUT DATA WITH SYNC 
$329 030066 005337 001246 DEC TEMP 1 -DECREMENT COUNTER 
5330 030072 001361 BNE 1$ -BR IF NOT DONE 
$331 030074 000207 RTS PC -RETURN 
5332 
5335 
5334 030076 SOM: 
5335 THIS SUBROUTINE LOADS SOM AND OUT DATA WITH A 
e339 :GARBAGE CHARACTER (0) 
$338 030076 004737 027034 JSR PC ,OUTRDY :WAIT FOR OUTRDY 
53 030102 012761 000001 000004 MOV #1,4(R1) :PORTS 1 
5 030110 104414 ROMCLK “NEXT QORD IS INSTRUCTION, ROMCLK PC=5304 
5 030112 122111 122111 -SET SOM 
5 030114 005061 000004 CLR 4(R1) CLEAR DATA CHAR 
5 030120 104414 ROMCLK -NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
5 030122 122110 122110 LOAD GARBAGE CHARACTER 
: 030124 000207 RTS PC > RETURN 
5 
§ 030126 EOM: 
5 THIS SUBROUTINE LOADS EOM AND OUT DATA WITH A 
; *GARBAGE CHARACTER (2) TO ENABLE TRANSMISSION OF BCC 
5 030126 004737 027034 JSR PC ,OUTRDY sWAIT FOR OUTRDY 
5 030132 012761 000002 000004 MOV #2,4(R1) :PORT4 2 ” 
5 030140 104414 ROMCLK -NEXT QORD IS INSTRUCTION, ROMCLK PC=53504 
5 030142 122111 122111 :SET EOM 
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3 PAGE 102 

UBROUT INES SEQ 0102 
ROMCLK ‘NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 “LOAD GARBAGE CHARACTER 
RTS PC “RETURN 

MESLD: 
: THIS SUBROUTINE LOADS SILO WITH MESSAGE 
“THE FIRST ARUGUMENT IS THE ADDRESS OF THE MESSAGE 
“THE SECOND ARGUMENT IS THE NUMBER OF CHARACTERS IN THE MESSAGE 
MOV RO,-(SP) -SAVE RO 
MOV (R5)+,R0 “RO=MESSAGE POINTER 
MOV (RS) +, TEMP : TEMP1=CHARACTER COUNT 

1$: JSR PC,OUTRDY “WAIT FOR OUT RDY 
MOVB = (RO) +, 4(R1) “LOAD PORT4 WITH CHARACTER 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122110 “LOAD OUT DATA SILO 
DEC TEMP 1 “DEC CHAR COUNT 
BNE 1$ “BR IF NOT DONE 
JSR PC,OCOR “WAIT FOR OCOR 
MOV (SP) +,RO "RESTORE RO 
RTS R5 “RETURN 

CLRIO: 
:THIS SUBROUTINE SETS IN CLR AND OUT CLR TO 
“CLEAR THE TRANSMIT AND RECEIVE BCC REGISTERS 
MOV #B1T7,4(R1) :LOAD PORT 
ROMCLK "NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122112 “SET IN CLR! 
ROMCLK “NEXT WORD IS INSTRUCTION, ROMCLK PC=5304 
122111 “SET OUT CLR! 
RTS PC “RETURN 

STFFCL: 
:THIS SUBROUTINE ADDS ANY NECESSSARY BIT STUFF CLOCK TICKS 
“FIRST ARGUMENT IS CHAR, SECOND ARGUMENT IS SHIFT COUNT. 
MOV RO,-(SP) :SAVE RO 
MOV (R5)+,RO “PUT CHAR IN RO 
MOV (RS) +. TEMP “PUT SHIFT COUNT IN TEMP3 

1$: RORB = RO “LOOK AT NEXT BIT 
BCS 23 *BR IF A MARK 
CLR BITCON “IT WAS A SPACE, CLEAR 1°S COUNTER 
BR 3$ : CONTINUE 

2$: INC BITCON "INC CONSECUTIVE 1°S COUNTER 
CMP #5,BITCON “1S IT 5 YET? 
BNE 3$ -BR IF NO 
CLR BITCON "YES! $0 START AGAIN 
DATACLK, 1 “GIVE EXTRA TICK TO STUFF ZERO 

3: DEC TEMP “DEC SHIFT COUNT 
BNE 1$ “BR IF NOT DONE 
MOV (SP) +,RO "RESTORE RO 
RTS "RETURN 
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CZ7DME MACY11 30A(1052) O7-JUL-80 13:53 PAGE 103 
CZ7DME.P11 01-JUL-80 15:29 SUBROUTINES SEQ 0103 
$412 
$413 
$414 0350314 STFFCK: 
5415 THIS SUBROUTINE CHECKS TO SEE IF TRANSMITTER 
S416 -1S STUFFING ZEROS WHEN IT SHOULD. FIRST ARGUMENT 
gale -1S THE CHARACTER, SECOND ARGUMENT IS SHIFT COUNT. 
5419 030314 010046 MOV RO,-(SP) :SAVE RO 
$420 030316 012500 MOV (R5)+,RO “PUT CHAR IN RO 
$421 030320 012537 001252 MOV (R5)+, TEMPS -PUT SHIFT COUNT IN TEMP3 
5422 030324 106000 1$: RORB RO -SHIFT OUT NEXT BIT 
$423 030326 103403 BCS 2$ -BR IF IT IS A MARK 
5424 030330 005037 030432 CLR BITCON -IT WAS A SPACE, CLEAR 1°S COUNTER 
$425 030334 000416 BR 3$ : CONT INUE 
5426 030336 005237 030432 2$: INC BITCON INC CONSECUTIVE I'S COUNTER 
5427 030342 022737 000005 030432 CMP #5,BITCON 5 IN A ROW YET? 
5428 030350 001010 BNE 3$ :BR IF NO 
5429 03035 $037 030432 R BITCON -YES, SO START OVER 
5430 030356 104415 000001 DATACLK, -EXTRA TICK TO STUFF ZERO 
5431 030362 737 026650 R PC,GETSI *LOOK AT WINDOW 
5432 030366 103001 BCC 3$ -1S IT A ZERO, BR IF YES 
5433 030370 104030 HLT 30 “NO, ERROR ZERO WAS NOT STUFFED 
5434 030372 §337 001252 3$: DEC TEMPS *DEC SHIFT COUNT 
5435 030376 001352 BNE 1$ *BR IF NOT DONE 
$436 030400 012600 MOV (SP)+,RO *RESTORE RO 
5437 030402 000205 RTS RS *RETURN 
5438 
5439 
5440 030404 CTSDLY: 
5441 THIS SUBROUTINE WASTES TIME UNTIL CTS SETS, 
gene *BUT HOPEFULLY NOT SO LONG THAT THE SILO RUNS 0, T 
$444 030404 010046 MOV RO,-(SP) :SAVE RO 
$445 030406 012700 000032 MOV #32,R0 LOAD RO WITH COUNT 
5446 030412 027777 150566 150564 1$: CMP Q@TKCSR,@TKCSR  ;WASTE TIME 
$447 030420 005300 DEC RO -DECREMENT COUNTER 
$448 030422 001373 BNE 1$ -DO IT AGAIN IF NOT = 0 
5449 030424 012600 MOV (SP)+,RO *RESTORE RO 
5450 030426 000207 RTS PC *RETURN 
34 
5453 030430 000176 FLAG: *B<01111110> -FLAG CHARACTER 
5454 030432 000000 BITCON: 0 
5455 030434 000 125 252 MESDAT: .BYTE 0,125,252,377 
5456 030437 377 : 
5457 030440 001 002 004 FLIDAT: .BYTE 1,2,4,10,20,40,100,200, 376,375,373, 367,357, 337.277.1177 
5458 030443 010 020 040 
$459 030446 100 200 376 
5460 030451 375 373 367 
5461 030454 357 337 277 
$462 030457 177 
5463 030460 100 140 160 STUFDT: .BYTE 100,140,160,170,3,300,174,176,177,1 
5464 030465 170 003 300 
$465 030466 174 176 177 
5466 050471 001 
$467 030472 363 347 317 BYTE 363,347, 317,200,0, 377,377, 377,200, 37 
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13:53 PAGE 104 
SUBROUTINES 





DT2: 


DT3: 


»AS 


»AS 
AS 


AS 
»AS 


r 

w : 
COCVI CO OoOooocn CV COVOVOBVOVOVOVOOOOOOOOOOOOOoaice 
bee Be bs hs bs bs bs bs Be Be Oe os he Bs hs be Be Be bs Oe bs bs he Bs Os Be bs Hs Be Oe 
™~ em me me PP Cn se Ps ee es Ps Ps es Ps Ps es es eg Py 8 ee eg es es 


<377>/LINE UNIT INITALIZATION TEST/ 
<377>“*LINE UNIT REGISTER READ/ONLY TEST“ 
<377>“*LINE UNIT REGISTER WRITE/READ TEST* 
<377>/LINE UNIT INTERNAL CLOCK FAILURE/ 
<377>/TRANSII TER DATA ERROR/ 
<377>/RECEIVER TEST/ 


<377>/RECEIVER DATA ERROR/ 

<377>/MODEM SIGNAL ERROR/ 

<377>/THIS ERROR COULD BE CAUSED IF YOU HAVE V.35 AND/ 
<377>/AUTOSIZED. YOU MUST MANUALLY ANSWER QUESTIONS IF/ 
<377>/YOU HAVE V.35 (DMC11-FA)/ 

<377>/TRANSMITTER CRC ERROR/ 

<377>/RECEIVER CRC ERROR/ 

<377>/1N BCC MATCH ERROR (LU REG 12)/ 

<377>/TRANSMITTER FAILED TO GO TO MARK STATE/ 
<377>/CABLE oon, TEST/ 

<377>/FLAG ERROR/ 

<377>/TRANSMITTER FAILED TO STUFF A ZERO/ 

<377>/SWITCH PAC TEST/ 

<377>/ABORT ERROR/ 

<377>/ TRANSMITTER ERROK/ 

<377>/HALF DUPLEX TEST/ 

<377>/OUT READY NOT SET/ 

<377>/IN READY NOT SET/ 


<377>/EXPECTED FOUND/ 

<377>/EXPECTED FOUND LU-REGISTER/ 
<377>/CHARACTER Bli THAT FAILED/ 
<377>/CORRECT CRC BIT THAT FAILED/ 
<377>/EXPECTED FOUND SHIFT/ 
<377>/EXPECTED FOUND CHARACTER 
<377>/BLOCK END NOT SET/ 

<377>/RTS DID NOT CLEAR/ 


SHIFT/ 
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021 
002 


DT4: 


OTS: 


DT6: 


DT?7: 


DT10: 


DT11: 


DT12: 


105 


;HLT 


SEG 0105 4 
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032424 631703 DH2 ;HLT 2 


DME 
DME .P 1 
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SEQ 0107 
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CZOME 
CZDME .P 1 


MACY11 30A(1052) 


O7-JUL-80 13:53 PAGE 108 


1 91-JuUL-80 15:29 SUBROUTINES 
032434 032220 DT2 

032436 030651 EMG 

032440 000000 0 >HLT 

032442 00 0 

032444 030713 EMS 

032446 031703 DH2 sHLT 

032450 032220 DT2 

032452 030713 EMS 

032454 031741 DH3 sHLT 

032456 032236 pr3 

032460 030743 EMG 

032462 0314662 C41 sHLT 
32464 032206 O11 
32466 030762 EM7 

032470 031662 DH1 sHLT 

032472 032206 DT1 

032474 031007 EM10 

032476 031662 DH1 sHLT 
32500 032206 DT1 

032502 031226 —EM11 

032504 032037 DHS sHLT 

932506 032262 DTS 

032510 031255 EM12 

032512 032037 DHS sHLT 

032514 032262 DTS 

032516 031226 M11 

032520 031777 DH4 HLT 

032522 032250 D14 

032524 031301 EM13 

032526 031662 DH1 sHLT 
32530 032206 DT1 

032532 031226 —EM11 

32534 032037 DH5 sHLT 
32536 032300 DT6 

032540 031255 EM12 

032542 032037 DHS :HLT 

032544 032300 DT6 

032546 031226 M11 

032550 032071 DH6 sHLT 

032552 032316 O17 

032554 031226 —EM11 

032556 032071 DH6 sHLT 

032560 032340 D110 

032562 031255 EM12 

032564 032071 DH6 sHLT 

032566 032316 D17 

032570 031255 EM12 

032572 032071 DH6 sHLT 

032574 032340 D110 

032576 0315341 M14 

032 000000 0 sHLT 

032602 000000 0 

032 031411 —M15 

032606 031662 DH1 sHLT 
032610 032206 DT1 

032612 031432 EM16 


SEQ 0108 





MACY11 30A(1052) awe 13:53 PAGE 109 


CZDME 
CZDME .P 1 


1 O1-JuL-80 15:2 SUBROUTINES SEQ 0109 
032614 031741 D43 -HLT 26 
032616 0 $308 OT11 
032620 gale? EM12 
032622 0 1o6¢ DM1 sHLT 27 
032624 032374 0112 
032626 031446 M17 
0326 000000 0 sHLT 30 
032632 000000 0 
032634 031512 EM20 
032636 031662 Dw1 sHLT 31 
032640 032206 O11 
032642 031533 E421 
032644 032137 47 :HLT 32 
032646 000000 0 
032650 031533 M21 

32652 031741 DH3 -HLT 33 
032654 032236 O73 
032656 031550 EM22 

32660 032162 DH10 ;HLT 34 
032662 000000 0 
032664 031573 EM23 

031703 DH2 sHLT 35 
032670 032220 DT2 
032672 031615 EM24 
032674 000000 0 sHLT 36 
032676 000000 
032700 031640 EM25 
032702 000000 0 sHLT 37 
032704 00 0 
032706 030743 E M6 
032710 031703 DH2 HLT 40 
032712 032220 D12 
032714 030713 ab 
032716 032037 DH5 -HLT 41 
032720 032262 DTS 
032722 031301 em13 
032724 0631662 OM 1 HUT 42 
032726 032206 O11 
032730 CORMAX: 
000901 END 
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ADRCNT= 004373 1492e 1528* 15378 
003024 1182 1221 1226 12728 
AUSTRT 002446 11818 1276 
AUTO.S 010640 1139 19814 
BCCLD 027654 3658 3687 3733 3762 3808 3837 3883 3912 52654 
BINWRD 004714 1§78* 1581" 1582 16194 
BITCON 030432 $200* $4601" 5403* 5404 $406* 5426 5426* 5427 $429e 54548 
BITO = 1 705#@ 1768 1769 
BITl = 2 70468 1164 1762 1768 1769 2062 2170 2183 
B1T10 = 002000 695@ 2151 2162 
BIT11 = 000 6948 2691 2724 2768 2826 2877 2928 2979 3031 3089 3117 3145 3173 
3203 3251 3288 3325 3362 3402 3483 3601 3652 3727 3802 3877 3950 
4016 4087 4187 4262 4509 4780 4844 4885 4980 
BIT1I2 = 010000 6934 2079 2181 
BI1T13 = 020000 6924 2082 2094 2154 2185 2394 3527 3541 3569 3597 3623 
BIT:4 = 040 6918 1394 2093 2118 2185 2196 2396 3529 3599 4883 4978 
BIT1$ = 1 6904 1098 1185 1188 1209 1212 2064 2157 
BiT2 = 7034 11464 1325 1769 2104 2114 3545 3572 3620 
BITS = 000010 7028 2187 2194 3571 
BIT4 = 000020 Raby 1752 \775 1777 2804 3212 3260 3297 3334 3371 4845 5066 5108 
BITS = 000040 7004 2299 2399 2747 2857 2908 2959 3010 34h6 4797 
B!IT6 = 000100 6994 1757 1758 2189 3126 3182 
BIT7 = 000200 6984 1758 1878 2299 2776 3217 3543 3548 3574 3622 3625 5384 
B1T8 = 000400 6978 2161 2176 2178 2191 2193 2199 2202 2260 
BIT9 = 001 6964 2159 2161 2173 2199 2202 2258 2260 
BM 7054 18008 2130 
BRLVL 012460 2255 2265 2273 22858 
wl 3730 1331 14174 
BRX 003732 1332 14184 
CALBCC 027652 3677 3706 3752 3781 3827 3856 3902 3931 3987 4053 4112 4133 4291 
4312 4342 4363 4439 4482 4539 4560 4609 4630 4706 4760 4897 4953 
4992 5038 $240* 5241 $243* 5249 $250" $5251* 5254 $2598 $472 
CHAR 027066 3204 3252 3289 3326 3365 3484 S1168 
CHARSD 027200 51434 
CHRCNT 7 1576* 1579 1583 1599* 16178 1618 
1125 1392 1424 1639 18254 
18384 1850 
18418 
18434 
18444 #1852 1859 
1s 1833 18684 
653 3682 3728 3757 3803 3832 3878 3907 53808 
1239 18004 
806 974" #81097 1099 1101 1906 
8434 1236 1351 1353 1355 1357 1673 1675 1735 1841 





8418 1156 1242 1689 2004 





54728 
006606 18004 2043 
CRC.CC= 102010 52628 
CRC16 = 120001 3655 3684 3730 3759 5805 3834 3880 3909 3955 4021 4106 4285 4336 
4533 4605 4888 4983 52618 
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CZOME P11 O1-yuUL-80 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0111 
CREAM 001320 8058 1096* 1902* 1903 1905* 1969 
CSR 006510 18004 2008 
CSRMAP 010642 19834 
CTSDLY 030404 54404 
CYCLE 010206 1333 1374 1375 18934 
DATABP 005216 1662* 1665 1687 16904 
DATACL= 194415 85148 2731 2775 2779 2839 2840 2854 2890 2891 2905 2941 2942 2956 
2992 2993 3007 3049 3052 3093 3121 3149 3177 3206 3254 3291 3328 
3365 3404 3405 3448 3449 3486 3660 3661 3689 3690 3735 3736 3764 











DATAHD 005204 +2 1683 16864 
1490* 1525 15354 
1196 12614 
54724 
54728 
54728 
54728 
54728 
5472a 
54728 
54724 
752@ 3861111" #11178 13688 
7384 861117 
799# = §=1134 1289* 1290 1893 1907 1989" 2215 2221 2222 2226 2251 
1247 18004 
889" 
00 894" 
001520 899" 
001530 9044 
001540 9094 
001550 9144 
001560 9194 
001570 9244 
001600 9294 
001610 934" 
001620 9394 
001630 9444 
001640 9494 
001650 9544 
soten sit 
001404 8724 ists 1215 1220* 1225* 1260 1378 1415 1707 1730 1776 19118 1920 
1969 2316* 
DACSRH 001406 8734 1757* 1758* 1762* 1768+ 1769 1775* 1777* 1920* 19218 1922 
man 801310 5008 1005. 360 1987 2002 2206 2207 2216 2218 
D % 7 7 ? 
DMPO4)§ = 001412 on Les 1752 1789 1794 1924* 1925* 1926 $053 $966 $108 $224 5299+ 
! §$309* 5310* 
DMPO6 3 001414 8764 1763* 1926* 1927* 
DARLVL 001376 B69# 1929% 1930" #1931 
DMRVEC 0013574 8684 £1381 1912* 19138 1929 


DMS100 001502 8904 
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DME .P11 01-JUL-80 15:29 ROSS REFERENCE TABLE -=- USER SYMBOLS SEQ 0112 

DMS101 001512 8954 

DMS102 001522 9004 

bmS103 001532 9054 

MS104 001542 9104 

DMS10S 001552 9154 

DMS106 001562 9204 

DMS107 001572 9254 

DMS110 1602 9304 

DMS111 001612 935" 

DMS112 001622 9404 

DMS1135 001632 945¢@ 

DMS114 001642 9504 

DMS115 001652 9554 

DMS116 0016 9604 

DMS117 001672 9654 

DMS200 001504 891" 

DMS201 001514 8964 

DMS202 001524 9014 

DMS203 001534 9064 

DMS204 001544 9114 

DMS205 001554 9164 

DMS206 001564 9214 

DMS207 001574 9264 

DMS210 001604 9314 

DMS211 001614 9364 

DMS212 001624 9414 

DMS213 001634 9464 

DMS214 001644 9514 
DMS215 001654 9564 
DMS216 001664 9614 
DMS217 001674 9664 
DMS300 001506 892a 
DmMS301 001516 8978 
DMS302 001526 9024 
DMS303 0015 9074 

DMS304 0015 9124 

DMS305 001556 9174 

S306 001566 9224 

DMS307 001576 9274 

DMS310 001606 9324 

DMS311 001616 9374 

DMS312 001626 9424 

DMS313 001636 9474 

DMS314 001646 9524 

DMS315 001656 9574 

DMS316 001666 9624 

DMS317 001676 9674 

DMTLVL 001402 8718 19332 1934* 
DMTVEC 001400 B704 19312 1932* 1933 
DM.END 001700 9694 1985 
DM.MAP 001500 805 BBB# 1096 1149 1159 1275 1903 1905 1983 1988 2243 
DONE 003734 1397 1399« 14194 1829* 
DT1 032206 54724 

D110 032340 54724 

D111 032362 54724 

D112 032374 5472a 
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CZDME .P11 01-JUL-80 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0113 
DT 032220 54728 
DT 032236 54720 
032250 54728 
032262 54728 
032300 54728 
032316 54728 
030504 5472a 
031007 54728 
031226 S472a 
031255 54728 
031301 54728 ° 
031341 5472a 
031411 54728 
031432 54728 
031446 54728 
030542 5472a 
031512 54728 
031533 S472a 
031550 5472a 
031573 5472a 
031615 S472 
31640 54728 
030605 5472a 
030651 5472a 
030713 5472a 
030743 S472# 
030762 5472a 
030126 4096 4195 4271 4275 4518 4523 4903 4907 4911 4998 53488 
001704 9764 
001710 9794 
001714 9824 
001720 9854 
001724 9884 
001730 9914 
001734 9944 
001740 9978 
1744 10004 
001750 10034 
001754 10064 
001760 10094 
001764 10124 
001770 10154 
001774 10184 
002000 10214 
002700 1205 12314 1235 
001232 7734 = 1360 1387 1700* 1918+ 
001325 8124 1094 1346* 1408* 1650* 1663 1677* 1736* 
005172 1660* 1678 16814 
002770 1237 12534 
005322 1675 17104 
000205 7064 
005252 1695 17004 
030430 54534 5472 
0025 36 1198# 1204 
030440 4891 4901 4905 4909 4916 4956 54578 
002566 12074 1218 1222 1228 
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CIOME | MACYT] 30A(1052), Q7-JuL-80 13:53 PAGE 115 
CZDME .P11 01-JUL-80 15:29 CROSS REFERENCE TABLE == USER SYMBOLS 
GETQI 030000 3697 -3701.~«Ss«3772)—Ss«3776 = 3847) 38513922 
GETQO 027766 3668 3672 «3743 «= 37467 = 3818 «= 3822 ~—Ss(3893 
GETSI 026650 2843 2847 2896 2898 2945 2949 2996 
4141 4153 4162 4295 4299 4316 4320 
Fgh 4547 4564 4568 4584 4588 4613 
HALTS 005222 1646 16928 
HILIM 004366 1489 1516 15348 
ICOUNT 001222 7694 1406 1411* 
INBUF 007630 1459 1495 18158 
INCHAR 010146 1844 18728 
INIFLG 001324 Bil# 1120 114011478 
INRDY 027510 3406 3450 34687 3495 3503 4198 4222 
4467 4672 4686 4691 4712 4726 4740 
4938 5003 5018 5023 5212s 
= 104404 8334 1510 
= 104403 B31# 1942-1994 2007S 2016 ~—2120-~—— 219 
004166 1466 14784 
012474 2027 2044 «=. 2054 = 2069=S 2085S 2100S 22938 
007330 1250 18008 
004314 1505-15168 
007016 1800" ©2121 
004372 1491" 1520 1536" 1537 
001220 768 -1410® 1427 1429-1669 = 2h17* = 24338 
3649* 3681% 3724 3756% 3799 3831* 3874 
001326 8130 
004364 1488" 1518 15338 
001224 770# $£=1405* 1406 1409* 
000200 52608 
001234 774# = =(1103* 1345* 1647 1649* 1737* 
etter U 611 §232 
001244 7820 
006142 1671 18008 
005672 1444 1567 1667 1668 1676 18008 1941 
072 1350 18004 
007672 1597 1607. —s«18 178 
001304 7984 81313 
005733 1349 18008 
006217 1674 18008 
117 1356 18004 
005760 1800" 2228 
006005 1286 18008 
030434 3610 4088 4096 4188 4193 4263 4269 
4521 4596 «= 4671 4725781 7BG C4791 
030152 3609 4093 «4192, 4268 = 4272,—S«4515— 4520 
4995 53614 
001322 806# 1097* 1358 1901" 1906* 1910 
006043 1327. 18008 
006144 1281 —-1800# 
006704 1800# 2068 
006106 1354 18008 
005675 1734 18004 
005666 1474 1800 1965 2040 2050 2060 2077 
F 005755 1336 © 1800# =—1959 
MRESET= 004000 706M 
MSTCLR= 104412 B45#@ 1739 «=. 2363S 2387 = 2419 2461 2503 


4227 
4745 


2459* 
3906* 


2003 


2091 


2561 


4405 
4801 


2475* 


2111 


2612 


TL TF 


4419 
4811 


2501* 


2654 


4424 
4819 


2524% 


2656 


4448 
4917 


2559« 


4510 
54554 
4904 


2690 


SEQ 0114 


4462 
4933 


2579 


4516 
4908 


2723 


CZDME 


CZDME .P11 


MTITLE 


QV.FLG 
RESREG 


MACY11 30A(1052) 


001000 


001216 
026700 
026702 


002646 
001302 
027034 


S 
—_ 
~ 
~~ 
o 


_ 
4 

Nm & 

FR 


$8323 
“Oo aes 


ssscs 
MUMINW 
o 
™m 


7 
005220 


01-JUL-80 1 


O7-JUL-80 13:5 
> C 


1095* 
16914 





. ¥ 


ROSS REFERENCE TABLE -- USER SYMBOLS 


3 PAGE 116 
2876 2927 
3397 3438 
4258 4505 
1943 

1705 2314* 
2721* 2765* 
3284" 3321* 
4013* 4081* 
5055*  5056* 
1895 

2836 2887 
4853 4912 
1252 

2878 2883 
4514 4784 
5285 5322 
1996 7009 
1501 15104 
1348 1359 
1324* 2255* 
13563* 1403 


2978 3030 3088 3116 3144 3172 3201 3249 
3482 3526 3596 3651 3726 3801 3876 3949 
4779 4842 488) 4976 


2338* 2361* 2385 2416* 2458 2500* 2558  2610* 
2823* 2874e 2925% 2976* 3028  3086* 3114* 3142+ 
3358* 3395* 3436* 35480* 3524% 3594% 3648* 37235 
sathe 4256* 4503* 4777 4840* 4879% 4974* 

g 


2929 2934 2980 2985 3035 3039 3044 3067 
4849 5081 5090 51014 5120 5135 5148 5152 
5338 5352 5369 


2018 2122 2131 


9 1521 
7 


2265* 


SEQ 0115 


3286 
4015 


mM 9 
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CZ0ME .P11 01-JUL-80 15:29 CROSS REFERENCE TABLE -- USER SYMBOLS 

RESTAR 005350 1721 17278 

RESTRT 003534 1362 1366 13744 

RESOS = 104407 839" 1691 

RETURN 001214 7664 1105* 1333* 1337 1374* 1412 1416 

ROMCLK= 104414 8498 1747 1750 1787 1792 2318 2341 
2464 2466 2477 2479 2509 2511 2530 
2635 2659 2668 2693 2695 2699 2726 
2781 2791 2801 2829 2834 2855 2880 
2987 3008 3037 3041 3046 3069 3094 
3256 3265 3293 3302 3330 3339 3367 
3504 3533 3536 3561 3564 3603 3607 
4028 4032 4062 4199 4208 4223 4228 
4463 4468 4477 4673 4687 4692 4701 
4802 4812 4820 4846 4855 4918 4934 
5051 5064 5079 5083 5086 5092 5095 
5153 5170 5174 5177 5183 5203 5205 
5307 5320 5324 5327 5340 5343 5354 

RUN 001316 8034 1098 1899* 1900* 1907 

SAVACT 001312 801% 1284 2226* 

SAVNUM 001314 802H 1092* 1361* 1364* 2219* 

SAVPC 001276 795#@ = = =61235* = =1255 1542* 1712 

SAVRO 001260 7884 861551" 1556 5472 

SAVR1 001262 789@ 861241 1550" 1557 

SAVR2 001264 790# 1549" 1558 5472 

SAVRS 001266 7918 = =1548* 1559 5472 

SAVR4 001270 7924 = =6©1547* 1560 5472 

SAVRS 001272 793@ = =1546* 1561 5472 

SAVSP 001274 7944 

SAVOS = 104406 837# 1651 

SCHAR 27504 3398* 3439* 5164 5182 5187 5191* 5192 

SCOPE = 104400 8254 2326 2349 2373 2404 2446 2488 
2752 2809 2860 2911 2962 3013 3074 
3309 3346 3383 3422 3466 3511 3582 
4067 4168 4239 4485 4763 4828 4863 

SCOP1 = 104401 827 2432 2445 2474 2487 2520 2541 
3830 3859 3905 3934 

SILOLD 027244 3403 3419 3447 3463 51598 

SIMBCC 027544 3663 3692 3738 3767 3813 3842 3888 
4535 4605 4893 4988 52328 

SKIP 002632 1186 1189 1210 1213 12198 

SOFTSW 010200 1842 18814 

OM 30076 4519 53348 

SPACNT= 715 1577* 1601 1604* 16184 

SPEE 007340 1800# 2053 

STACK = 001200 6748 1090 1303 1706 1729 

STAT 001240 7804 

STAT] 001366 8618 1914% 2394 2396 3527 3529 3541 

STAT2 001370 8628 1915" 2616 2638 

STATS § 001372 8634 1916* 5545 3572 3620 

STFFCK 0303514 54148 

STFFCL 030234 5188 5392a 

STRTSW 001256 Ais 1126* 1129* 1130 1132 1142 1144 

STUFDT 030460 54634 

STUFLG 027506 5399¢ 3440" 5185 5199* 52098 

$v05 004402 15464 


* 


WANE & & AAAI — 
Oro OW OWNUYVIA MNO UU"! 


3569 


1279 


3597 


1325 


3599 


1334 


3625 


1936 





SEQ 0116 
1968* 1970 
2435 = 2437 
2586 2613 
2772 2777 
2957 2982 
3218 3220 
3488 3496 
3996 = 4024 
4434 4449 
4755 4795 
5024 5033 
5137-5150 
5287 5297 
2675 = 2708 
3235 = 3272 
3935 = 4001 
3755 —- 33784 
4287 4338 
4883 4978 
1960* 1990 


— ee ee lO 


Lc 
eee ee ae ll _=— 
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SWFLG 010144 1093* 1438 1837* 1864* 18708 

SWMES 007205 18004 1840 

SWMES1 007215 18008 1843 

SWR 001202 753@ = 861110" 1112 1116* 1126 1284 1289 1394 1401 1425 1440 1640 1645 
1694 1701 1703 1765 1825 1863+ 

SWREG 000176 7398 = =61116 1825 1883 

SwOO = 000001 6554 1130 1990 2259 

$WwO1 = 000002 6548 1334 1936 1960 

SwO2 = 04 6534 

$wO3 = 000019 6524 1279 

SWO4 = 00002u 6514 

SwOS = 0 6504 

SWwO6 = 000100 6494 1765 

SWO7 = 000200 6484 

SwO8S = 00 6474 1701 

SwO9 = 001000 6464 1425 

Sw10 = 002000 6454 1703 

Swit = 000 6444 1401 

SW12 = 010000 6434 1440 1640 

SW15 = 020000 6428 1645 

SW14 = 040000 6414 

SWwi5 = 100000 6404 

SYNC 026720 3091 3119 3147 3175 50714 

SYNLD 030016 3956 4022 4091 4190 4266 4513 4783 4848 4886 4887 4981 4982 53144 

TEMP 001416 881" 1584 1731" 17328 81773% 81778 =(1784* 8 81796* 2657* 2663* 2666* 2672* 

TEMP1 001246 783@ 1150* 1802 2251* 2252* 5076* 5088* 5122* 5133* 5168* 5179* 5220* 5226* 
$238 $252e 5$272* 5283* 5318* 5329* 5368 5373 

TEMP2 001250 7848 1151" 1804 4436e 4437e 4438 4479* 4480" 4481 4703* 4704* 4705 4757* 
4758* 4759 4950* 4951" 4952 5035* 5036* 5037 5120* 5136 $146* 5149 5163* 
5167* 5194* 5201* $239 5244 5270" 5286 

TEMPS 001252 785@ 861153" 81179" 864231 1240* 1806 1999 2002 2139% 4225% 4226* 4422% 4425 
4438" 4439 4465* 4466* 4481* 4482 4689* 4690* 4705* 4706 4743 4744 47598 
Hh» 4936* 4937" 49522 4953 5021* 5022* 5037* 5038 5398* 5408* 5421* 5434* 

TEMPG 001254 7864 1154* 1808 2012 2015 2021 2024 2125 2128 2134 2137 

TEMPS 001256 7878 = =1155* 1810 1993* 2006* 2237 5104* 5110* 

TIMER = 104416 8534 2697 3207 3255 3292 3329 3366 3535 5563 3605 

TKCSR 001204 7584 1461 1827 1872 295 5446 

TKDBR 001206 759# 1463 1469 1830 1832 1874 2295 

TLAST = 026532 1963 5042a 

TPCSR 001210 760@ 1445 1467 1642 1875 2296 

TPDBR 001212 761e 14467 1469 1644 1877 22988 

TRPOK 004750 16504 

TSTNO §8=©001226 771#@ = 81104 1715 1743 1947 1954 1956 2313* 2337% 2360* 2384 2415* 24578 
2499* 2557¢ 2609 2631% 2653% 2687 27208 2764* 28228 28732 2924e 2975" 3027 
3085e 3113¢ s1die 3169e 319R8e «3266 «= 32832 = 3208 «= 3357 * = 53948 = 5455* = 5479" = 55258 
3593¢ 36472 37228 37972 3872" 3946" 4012" 4080" 4182e 4255* 4502 4776* 48598 
4878* 4973¢ 

TST1 012526 1950 1968 23134 

TSTIO0 §=—6.01 3534 250 25578 

TST11 =©013710 2558 26094 

TST1 013752 2610 26514 

TST1 014014 2632 26534 

TST14 014114 2654 26878 

TST15 «014214 2688 27208 

TST16 «=. 014552 2721 27648 


——_— I TT " 
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014550 oS (28228 | 
gt? $ 314 3374 | 
14 82328738 | 
015114 874 9248 | 
015276 362 9754 
015460 976 0278 | 
015666 028 3085e | 
015754 Sty 1134 | 
016044 114 1418 | 
016132 3142 1694 | 
012650 $335 trey | 
016222 170 3198 
016374 3199 32468 
016510 3247 32834 
016626 3284 33204 
016744 3321 33578 
017062 3358-33940 | 
017212 3395 3435¢ | 
017352 3436 34798 | 
012722 2361 23844 
017512 3480 35234 
017744 3524 35934 
020140 3594 36478 
020454 3648 37228 
020770 3723-37978 | 
021304 3798 38724 | 
021620 3873 39464 
022056 3947 40124 
013024 2385 24158 
022314 4013 40804 
022646 4081 41824 
023074 4183 4255¢ 
024174 4256 45020 
025374 4503 47764 
025626 4777 48394 
025744 4840 48784 
026332 4879 4973# 5042 
013164 2416 24578 
TS160 = eeeeee y 4974 
013324 2458 24998 
3612 1328 1329 1331* 13328 13958 
TWOSYN= 010000 7064 
TYPDAT 005206 1666 1684 16874 
= 104402 8294 1124 1136 1148 1233 1238 1246 1249 1281 1286 1327 1336 1349 
1350 1352 1354 1356 1444 1457 1474 1567 1607 1667 1668 1671 1672 
1674 1676 1680 1685 1734 1840 1843 1895 1941 1959 1965 2003 2025 
2039 2042 2029 2052 2059 2067 2076 2083 2090 2098 2110 2228 
TYPMSG 005106 1664 16674 
006526 18008 2017 
VECMAP 012216 2227 2239" 
012210 2005 22358 
WROCNT 004710 1575 1608* 16164 
WRKO.F 005174 1679 16828 
005000 1641 1642 16454 
003546 1351 13764 
003570 135713854 | 
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KHEAD 006224 
KLOC ete ee 1227 1258 12718 
XPASS 00356 
XPOLY 027650 3730¢ 3759 3805* 3834e 3880" 3909 3955* 4021* 4106* 4285* 4336 
4888* 49832 5248 $250 $2584 
XSTATQ 007602 
XTSTN 005330 
KVEC 003554 
ZERO 001300 
$(OD = #eeeee J 
SCRAP = 177777 6 23094 23278 2330 23334 23508 353 3564 23748 #2377 23808 
24118 26478 2450 26538 26898 2492 24958 25478 2550 25534 25998 
26214 2624 26278 26438 2646 26498 267684 2679 27098 2712 
2756 27604 28108 2813 28184 28618 2864 28698 29128 2915 29204 
29718 30144 3017 30238 30754 3078 30818 31034 3106 31098 31314 
31598 3162 31658 31878 | 31948 32364 3239 32428 32738 3276 
313 16 33478 3350 3353# 33844 387 33908 34234 3426 34318 
34754 3512# 3515 35198 35834 6 35898 36364 3639 36438 37118 
37864 3789 37934 38618 3864 38684 39368 3939 39428 40024 4005 
4071 40764 41698 4172 41788 424608 6243 425184 4644868 4489 44984 
47728 48298 4832 4835#@ 48644 4867 48748 49608 4963 49698 
SENDAD 003522 13684 1692 
$N = 000057 09 2311 23168 232 2333 2335 23408 2350 2358 2363 
380 2382 2387 23888 2405 411 2413 241 24208 2447 2453 
24628 2489 2495 2497 2503 25044 2547 2553 2561 256284 
2607 2612 26138 2621 2627 2629 2634 26358 2643 2649 
2676 2683 2685 2690 26918 2709 2716 2718 2723 27248 2753 
$267 27684 2810 $818 2820 2825 s8eoe 2861 286 871 287 
920 2922 2927 9284 2963 2971 297 2978 29798 014 302 
30314 3075 3081 3083 3088 3089" 3103 3109 3111 3116 31178 
3139 3144 31458 3159 3165 3167 3172 31734 3187 3194 3196 
3236 3242 3244 3249 32504 3273 3279 3281 3286 32878 3310 
3323 33244 3347 335 3355 3360 33618 3384 3390 3392 3397 
3431 3433 3438 34398 3467 3475 3477 3482 34838 3512 3519 
35274 §8=3583 3589 3591 3596 3597# 3636 3643 3645 3651 36528 
3720 3726 37278 3786 3793 3795 3801 3802" 3861 3868 
3936 3942 3944 3949 39504 4002 400 4010 4015 40164 4068 
4083 40844 4169 4178 4185 41864 4240 4251 4 4258 
4498 4500 4505 45064@ 4764 4772 4774 4779 47804 4829 4835 
48434 4864 4874 4876 4881 488284 4960 4969 4971 4976 4977# 
$S = 000061 23164 2338 23404 1 23644 2385 23884 2416 24208 2458 24628 
2558 25628 261 26134 263584 2654 26578 26918 2721 
27684 2823 28268 2874 28778 925 29284 2976 29798 30318 
3114 31174 314 31458 31734 3199 32028 3247 32504 
33248 3358 33618 33988 34398 3480 34834 524 35278 
3648 36524 3723 37278 3798 3802" 873 38778 3947 39508 4013 
ae dette 41868 4256 42594 45064 4777 47808 4840 48438 
$Y = 000017 825 8278 8298 8314 833e 835¢ 8378 8398 8418 8434 8454 
8514 8534 8554 
= 032730 7224 7294 7348 7374 7418 7458 7478 7994 8004 8014 R02" 





; 
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003766 





9544 
1138 
2035 
4660 

4 

75 

4 

0 17204 

5 

7 

5 

3 

4 

0 1105 

7834 

627 

632 

4354 





9558 
12704 


2180 


54724 


1728 


1860 


1 
2 


9568 
288 
184 


9578 
1723 


2251 
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9594 
1733 
2262 


9604 
17814 
2294 


9614 


18004 
2297 


9 
8 
5 


628 
8 
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DME ND 6118 1338 
DMF RNT 6118 
HLT 6854 2325 2348 2372 2403 2431 2444 2473 2486 2519 2540 2574 2592 2619 2641 
2665 2674 2706 $in8 2750 Ths. 2/98 2807 2845 2849 2859 2896 2900 2910 2947 
2951 2961 344 002 3012 057 3061 3101 3129 3157 3185 3215 3227 3234 3263 
3271 3300 308 3337 3345 3374 3382 3413 3457 3494 3502 3510 3559 5581 3631 
3670 3674 3699 3703 3745 3749 3774 3778 3820 3824 3849 3853 3895 3899 3924 
3928 3979 3983 4045 4049 4118 4122 4139 4143 4155 4164 4206 4215 4235 4297 
4301 4318 4322 4348 4352 4369 4375 4385 4394 4412 4432 444) 4455 4475 4484 
4545 4549 4566 4570 4,586 4590 4615 4619 4636 4640 4652 4661 4679 4699 4708 
4719 4733 4753 4762 4799 4808 4818 4826 4862 4924 4946 4955 5010 5031 5040 
5112 5228 5433 
6114 
6114 1160 
6114 3636 3711 3786 3861 
6114 3936 4002 
6118 3014 
61148 1812 
6114 4864 4960 
6118 2643 
6114 3210 3222 3229 3258 3267 3295 3304 3332 3341 3369 3378 3490 3498 5506 
4210 4230 4427 4470 4694 4748 494) 5026 
6114 3653 3682 3728 3757 3803 3832 3878 3907 
6114 3950 4016 
6114 1884 
6118 4764 
61148 1338 
6114 5042 
6114 
6114 2505 2525 2563 2580 
6114 
6114 4829 
6114 
6114 3075 3103 3131 3159 
6114 
6114 2489 2547 
6114 2503 2327 2350 2374 
6114 2405 
6114 2447 
6114 
6114 3467 
He 4219 4415 4458 4682 4736 4929 5014 
& 
61148 3512 
6114 1800 
6114 
6118 3384 3425 
6114 1716 
6114 5293 5303 
by eee 2007 2016 2120 2129 
6114 1747 1750 1787 1792 2318 2341 2365 2389 2422 2424 2435 2437 2464 2466 
2477 2479 2509 2511 2530 2532 2566 2568 2584 2586 2613 2655 2659 2668 2695 
$835 Shas 3906 «3981 «3986 «3987 Sono aur S008 3087 Saat Su6 $069 S094 $129 
3150 3178 3208 3218 3220 3256 3265 3293 3302 3330 3339 3367 3376 3407 3445 


me all 


A ee 





LL Te ee —~_ _——e 
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3614 3958 

4028 403 4062 4199 4208 = 4223 4237 4606 = 4420 425 484 4449 463 
4477 = &67 4687 6692 4701 4713 6727 4761 * 47466 6755 6795 4802 4812 46820 
4855 4918 4934 4939 6968 5004 5019 5024 5033 5051 5064 5079 5083 0 
5095 $106 51240=Ss5128)=—S 51310 «$137 «5150S 5153 5170 s$174 = s5177—S 5183 = $203 =: 205 
3274 $278 5281 5287 5297 5307 5320 5326 5327 53460 5363 5354 5356 5371 

SRCRC 4169 

SRE C 3187-3236 3273) 33100 3347 

$SCOPE 1388 

$S IMBC $232 

$SINAC 

$SOF TC 1820 

SSTUFF 

$SWPAC 2599 2621 

STCHAR 4087 4187 4262 4509 

STCRC 4068 4240 4486 

STRANW 4106 4285 46336 4533 4603 

$STRAN1 2676 «= 2709'-—S—s« 2753 

STRPDE 825 827 831 833 835 837 839 B41 843 845 847 849 851 

STSTN 2311 2335. Ss 2358 «= 2382) 2413) = 2455) = 2497 ~=Ss 2555 Ss 2607) Ss 2629s «2651S 2685) Ss 2718 ~=— 2762 
2871 2922 2973 3025 3083 3111 3139 3167 3196 3244 3281 3318 3355 3392 
3477-3521 3591s 3645s 3720023795) 3870s 39442 4010s—s«4078)=—S 4180) 4253) 4500 4776 
4876 4971 

SVARIA 74h 

$wW INDO 2810 2861 2912 2963 

$x2 2303. «= 2309S 2327S 2333S 2350 = 2356)=— 2374) Ss 2380 )=— 2460S) = 2411S 2447) 2453 2489 2495 
2553 = 2599 Ss 2605s 2621S 627) 643) 2649) 2676S 2683S 2709S 2716~=— 2753S 2760 ~=— 2810 
2861 2869 2912 2920 2963 2971 3016 3023 3075 3081 3103 3109 3131 3137 
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: 4864 4874 4960 4969 

ZEROS 


. ABS. 032750 000 


ERRORS DETECTED: 0 


CZ2DME ,CZDME .SEQ/SOL/CRF/NL: TOC=C(Z2DME.P11 
RUN-TIME: 15 21 1 SECONDS 

RUN-TIME RATIO: 64/39=1.6 

CORE USED: 32k (63 PAGES) 
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